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RR-RX CTRL 0-4 2ND LEVEL 
RR-RX FIXED POINT 2ND LEVEL 
SVC AND SPM RR CTRL OP 
BRANCH AND LINK RR RX 
BRANCH ON CCND COUNT BC 
STR PROT INSTRS SS I SK 
FXD PT RR LOADS LPR LNR 
RR RX AND OR EXCL OR 
COMPARES ALGEBRAIC LOGIC 
ADD SUBTRACT RR RX 
LOGICAL ADC SUBTRACT RR 
FIXED POINT MULTIPLY HA 
FIXED POINT MULT POST LOOP 
FIXED POINT DIV PRE LOOP CO 
FIXED POINT 01 V OR 0 DIVIDE 
FIXED POINT DIVIDE 
INV MOVE OP DECODE E8 
DATA ADD DECO 
DATA HANDLING 
RX CTRL LOAD ADDR INS ST 
EXECUTE INSTRUCTION 
HALF WORD STORE STH 
HALF WORD OPS CCMMCN SET UP 
CONY TO DEC FROM BINARY 
CONY TO DEC FROM BINARY 
CONY TO BINARY FROM DEC 
CONY TO BINARY FROM DEC 
FXD PNT RX LOAD STORE 
FL PT OPS DECO 2ND LVL 
LNG SHRT FL PNT LOS REF 
FLTNG PNT HALVE RR LONG 
FLTNG PNT LD STR RR RX FCR 
FLTNG PNT ADD SUB CCMP RR 
FLTNG PNT ADD SUB CCMP EXP 
FLTNG PNT ADD SUB CCMP CAL 
FLTNG PNT ADD SUB COMP PRE 
FLTNG PNT ADD SUB CCMP PRE 
FLTNG PNT ADD SUB CCMP PRE 
FLTNG PNT ADD SUB CCMP 
LONG FL ADD FRACT TST C 
LONG FLTNG ADD SUBT CCMP 0 
FLTNG PNT ADD SUBT 0 TST CH 
FLTNG PNT ADD SUBT COMP 
FLTNG PNT ADD SLBT 
FLTNG PNT DIV SHRT RR RX PR 
FLTNG PNT DIV EXPONENT SUBT 
FLTNG PNT DIV LOOP FOR FR 
FLTNG PNT DIV POST NORMAL 
FLTNG PNT MULT RR RX FORM 
FLTNG PNT MULT MULTIPLY L 
FLTNG PNT MULT POST NCRM 0 
FLTNG PNT LONG MULTIPLY DIVI 
FLTNG PNT LONG MULTIPLY DIVI 
FLTNG PNT LONG MULTIPLY DIVI 
FLTNG PNT LONG MULTIPLY LDR 
FLTNG PNT LONG MULTIPLY MDR 
FLTNG PNT LONG MULT MDR MD 
FLTNG PNT LONG DIVIDE DDR DC 
FLTNG PNT LONG DIVIDE DDR DD 
RS SI 2ND LVL I FETCH 
SHIFT RIGHT LOGICAL SRL 
SHIFT LEFT LOGICAL SLL 
SHIFT RIGHT ALGEBRAIC S 
SHIFT LEFT ALGEBRAIC SL 
SHIFT RIGHT OOUBLE LOGIC 
SHIFT LEFT DOUBLE LOGIC 
SHIFT RIGHT OOUBLE ALGEB 
SHIFT LEFT DOUBLE ALGEB 
LOAD PSW LPSW SET SYST 
BRANCH ON INDEX BXH BXL 
SI MOVE LOGICAL OPS MVI 
TEST AND SET 
SI COMP CLI TST UNDER M 
LOAD STORE MULTIPLE LM 
START I/O HALT I/O TST I/O 
DUMMY START I/O 
TIME OUT CHECK LOOP 13 TS 
MPX CHAN INTERRUPT HAND 
MPX CHAN INTERRUPT HAND 
LOAD 64 CPU MODE 
IPL 

IPL STATUS ANALYSIS 
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QTU5UCHD- 

(000000) 

(000001) 

(0X0000) 

(OiOOOi) 

(010010) 

(010011) 

I-^ETCH 



QE*OO.CHE- 

(000000) 

(000001) 

(010000) 

(010001) 

(010010) 

(010011) 

EXECUTE 



Bf X 
0~— 



RX OPS 



RR OPS 



QTilS.GDE— 

(000000) 
RR I-FETCH 
OFF BOUNDS 



I 

IS 

t 
*L 



0E400.LGE— 
(000000) 
RR EXECUTE 
OFF BOUNDS 



000000 - 
E 0111 
W67WB 
IA^H 

FNt JH.5A 
LSWLS 
S03.iE 
M(47)*R0AR 
X 



0100 



c 

R 

G2< 



OPND 2 TO R 
2ERQ TO MB* 
IAR TO H (FOR BALRJt 



000001 — 010 
E 0111 
B W67*MB 
' XA*M 
L FN* JKSA 
L LS*RKS 
C S03nE 
R W( 47) ♦ROAR 
j^2**wi^ojoP()JcXX •■■^ B 



ALL ENTRIES FROM 
I-FETCH FUNCTION 
BRANCH. CQND BRANCHES 
A FOR X»0*B FOR 8*0. 

MO A BRANCH UNLESS RX. 



010000 — 0110 

A M234t*R 
H. FNtOKSA 
L LS*L*LS 

A5~ XX — AE 



COMPUTE 

TO R* 
BRING X 



(B)+D 

TO L* 



NO B« X 

OIOOOI — 

A M23»R 
— «L FN« JKSA 
L LSKKS 



Ollj 



XX — 0122 
E 0000 
A RH>1 

«B W67^MB * 
0 IA*M 
0 3KB 
L FNoMDKSA 
L LS*RKS 
C E^503 

R M(47)» R0AR | 
C7 ,wBi 'flOofcj0B(iXX < w*CQ 
INDEXING CYCLE 



I 



XX 



B# NO X 
0100X0 



0000 
M23+LK 
W67*MB 
IA*H 
3KB 

FNtMDKSA 

LS^RKS 

E*S03 

M(47)*R0AR 



0112 
1 



ADDR LEFT IN L 
OPND 1 IN R 
IAR IN H# STATS 
0-3 ARE 2ERQ. 



EFFECTIVE ADDR 
TO L. OPND 1 
TO R. 3 TO LB. 

ZERO TO MB. 

IAR TO H« 



NO Bt NO 
010011 



0000 
M23*L 
W67*MB 
IA>H 
3KB 

FNfMDKSA. 
LS*RKS 
E^S03 
M(47)*R0AR 



0113 



0- 

! 
i 



N5 MMi ti<&&&XX 



SO WILL BE ON IF R2«0. 



255449 



09/20/63 



MACH 
NAME 
MODE 
P.N, 

IBM CORP. 



C2050 

MANUAL 

3364910 

SDD 



DATE 
LOG 



10/01/65 
902 



SHEET 
VERSION 



RR«RX CONTROL (0~t4~) 
2ND LEVEL I-FETCM 



-QC33 
(OOOOXX) 
STH 



H3C1C 
(0001XX) 
(0010)00 
(0011XX) 
LA«STC«XC 



GE 



H&E4 0(y mmmmmmm C(3K 
(OlOOXX) 
EX 



•OA* 
(0101XX) 
SAL 



GE 



■OA* 

(Otioxx) 

(0111XX) 
BCT.BC 



•0E58C 
(1000XX) 
(1001XX) 
(1010XX) 
(1011XX) 
(1100XX) 
LH.CH.AM 
SHtMH 



-QM112— ■ 
(1101XX) 
INVALID OP 



*CGE 



-QE80 0 ■ ' C GE 

(1110XX) 
CVD 

-OE9O0 
(1111XX) 
CVB 



■QMU1 

(OOOOXX) 
(0001XX) 
(0010XX) 
(0011XX) 
(1011XX) 
(1100XX) 
(1101XX) 
(1110XX) 
(1111XX) 
INVALID OPS 



-GBE 



-OA400 "" ' G BE 

(OlOOXX) 
(1010XX) 
SPMtSVC 



-0A50C 
(0101XX) 
BALR 



-OA700-*~ 
(0110XX) 
(0111XX) 
BCTR.BCR 



•GBE 



-QA800— 

(1000XX) 
(1001XX) 
SSMISK 



1 QAHO 



•GBE 



(000X00) 

>: oooxoi ) 

$0X0100$ 

<oxoiox> 

iOXOXXO) 

:oxoxu> 

I— FETCH 



3£400*CHE- 

(OOOlOO) 

vOOOXOX) 

S0X0X00) 

50X0101) 

(oxoxxo) 
coxoxii) 

EXECUTE* 



aTH5#GDE— 
1000X00) 
RR I-FETCH 
OFF BOUNDS 



QE400.LGE— 
(000100) 
RR EXECUTE 
OFF BOUNDS 



000X00 — • 

L FMfO^tSA 
U*ULS 



0104 



R M(47)*R0AR 
G 2 ***#XX — GB 



OPWD 2 TO L# 



oooxox — 

L FN%J*L5A 
L5*L*LS 



0X05 



R M(47}*RQAR 



*xx 



«OFX00«-«~CGE 
(OOOOXX) 
?X0O0XXS 
ST 9 L 



Rfu+RsAW 

PNgMD*LSA 

L$*L*LS 



XX — ~ Ci23 

A 

-«L 

R m:47.hroar , 

C 7 » »»« XX 
CHECK WORD ADR 



INDEXING CYCLE 



! 



I 

0— 

I 
I 



«0MX12« 

: 000; xx) 
eooicxx,* 

^OOXiXX) 
INVALID OPS 



-&B400— • 

(OlOOXX) 

;oixoxx) 

(OXliXX) 
NtOtX 



-OBS00 
(OlOXXX) 

aooxxx) 

CL*C 



«CGE 



-0B73 0" 1 " 1 CGE 

aoxoxx) 
aouxx) 

AfS 



H*B8C0-*— ■ 
iXXOOXX) 



-CGE 



-OB900— - 

^XIOXXX) 



-CGE 



H*g?50~- 
(1XI0XX) 

UiUXX) 
AL*SL 



-CGE 



-4B100-~ 
(OOOOXX) 
COOOXXX) 
(OOXOXX) 
(001 XXX) 

aoooxx) 

LPR«LNR«lTP 
LCRtLR 



-GBE 



~OB40Q— — — 5BE 

(OXCCXX) 
JOXXOXX) 

ioxxxxx) 

NRfORtXR 

-0B50C 
fOXOXXX) 

aooxxx) 

CLRtCR 



-OB730- 

doxoxx) 
aoxxxx) 

ARtSR 



— GBE 



-OB800~- 

aiooxxj 

MR 



-GBE 



(iXOlXX) 
HP 



-GBE 



axxixx; 

ALPvS^R 



~6BE 



254760 
235449 



X2/2X/64 
09/20/65 



MACH 
NAME 
MODE 
P#N# 

IBM CORF* 



C2050 

MANUAL 

53647X6 

SDD 



DATE 10+0X/65 
LOG 902 



SHEET 
VEPSIHN 



RR«RX FIXED POINT U-«5~> 
2ND LEVEL I-^ETCM 



(OXOOXX) 

uoxoxx) 

SECOND LEVEL 
I —FETCH 



OlOOXX « 
I 

W*G 

0*LB 

FN*MD*L5A 
LS*L*LS 



0192 



8 

~D 

L 
L 
I 



XX r ~""-CA 
SET PROG MASK* 
<R1> TO L 



} lOXOXX — 01AA 
! E XOOO I 
J A E*R i 

*~#a 5Lt*a 

B NILB*V| 
B V*W I 
B W+MDtF \ 
GX~~ XX ~~GA 

SVC 

* BYTE 1 TO MD*F 
(INTERRUPT CODE) 
00000040 TO R 
(OLD PSW A DDR) 



XX — 0126 

E XXXO I 

B LLBHJ I 

B U*W !*— ~ 

B W27*PSW4 

L WStE*L5A I 

L LS>LH.S I 

S XA+0/2+A 

C E*S47 I 

R I-FETCH I 

EXCPNQIAC30W 
EXCPNOUA(30).REF)*B 

BYTE 0 TO PSW 
BITS 34-39 



OVERLAP I<«FETCH 

CY lm 



-OTXXO- 



<CE 



(00»0X*X0*XX) 
SECOND CYCLE 
OF I-FETCH 



-GAE 



~QT3lO- 

*XX) 
TRAP S6QUEWCE 



j 254760 
! 255449 



X2/2X/64 
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MACH 
NAME 
MODE 

IBM CORP* 



C2050 

MANUAL 
5364717 I 
SDP I 



DATE 

LOG 



10/01/65 
902 



SHEET 
VERSION 



0A400 



SVC AND SPM - m CONTROL OPS 



QA110»CGE— — 

<oioixx> 

SECOND LEVEL 
I-FETCH-RX 



BRANCH ADDR IS 
IN Lt 



01 01 XX — on4 

A H*R 
B PSW4*U 
B U*W 
B W*MMB 
1 

CI— • xo 
IAR TO R 

PSWt 32-39) ^(0-7) 



XO 
M*R0 

FN«MD*LSA 
R*LS 



010A 



FOR BOTH* 2ND 
i EV I-FETCH 
HAS PUT IAR 
IN M« 0 IN MB. 



C3— 10 — CC 
STORE LINK 
WORD AS OPND 1. 



ADDRESS W R 
SO ON IP R2«0 
< BRANCH INHIBIT) 



OAUO.GBE-— 
<0101XX) 
SECOND LEVEL 
I -FETCH— RR 



OXOIXX — 

A H*R 
B PSW4HJ 
B U*W 
B W*MMB 
L FN*J*L5A 
L LS»L»LS 
R 



0196 



SO 



#-~0 

i 



X* —MA 



IAR TO R 

PSWC32~39)*M(Q~7) 
<R2) TO L 



BRANCH INHIBITED 



BRANCH INHIB- 
ITED (R2»0) . 
STORE LINK WD* 

XI — 01 OB 



M*R0 

PNtMD^LSA 
R*LS 

IA+0/2*A 
SMIF 
I-FETCH 



a3~ — *qc 

SUPPRESS MEMORY 

IF OFF BNDS 

AND PREFETCH 
EXCPN0IA(30)*A 

EXCPi^fl UA { 30 > .REP ) *8 



-CCE 



-QA700— 
(10) 

BRANCH WITH 
CONTENTS OF L 



-QT10 5-. Q CE 

C00.0l.10.il>- 
I-FETCH 



254760 
255449 



12/21/64 
09/20/65 



MACH 
NAME 
MODE 
P.N. 

IBM CORP. 



C2050 

MANUAL 
5364718 
-SDD 



DATE 
LOG 



10/01/65 
902 



SHEET 
VERSION 



1 QA500 



BRANCH AMD LINK RPtRX. 



aAXXOoCGE— 
COXXOXX) 
(OUIXX) 
SECOND LEVEL 
I-FETCH-RX 



BRANCH A DDR 
IS IN R* 



OAXXO.GBE—— 

(OXXOXX) 
(OXXXXX) 
SECOND LEVEL 
I-FETCH-RR 



CiA300»CCE— - 

CIO) 

branch and 

link 



0J200.EGE- 

(10) 

LOAD PSW 



^XXXXX 
? NOR 



071 C 



NO 



R CRMD 0 
AX"— #0 — A A 
MASKED CR ♦ A 
TEST FOR BRANCH 

BC 



BCR 



0X1XXX 
A R*L 



0X9E 



R Aft<B«X)*A 
R CRMD SO 
El— ** «-HEA 
MASKED CR ♦ A 
BRANCH ADR ♦ L 
TEST FOR BRANCH 
ALSO FOR INHIBIT 
CR2»0) 



SO IS OFF FOR RX. 
FOR RRt IT IS ON 
IF R2*0 
(BRANCH INHIBITED) 



BCT 



BRAMCH ADDR 
IS IN R* 

BCTR 



OllOXX mmm 01 9A 

"a R*L 
t PNiMD*LSA \*> 
L LS*R*LS 



Ol—OliOXX — OA 
OPND X TO R 
BRANCH ADDR TO L 



OllOXX ■ 

R~l*« 
FN«MD*L5A 
R»LS 



A 

L FN«MD*L5A I 

L R»LS j 

"~R SO X ! 

N?— #1 ~NB 

DECREMENT OPND X 
AND STORE IT* 



jftnriin/n; j 



E 
L 

0— L 
S 
-C 



00 — 0XC4 
XiXO 

WS*E*L5A 
LS*L*LS 
|A+0/3*A 

I-FETCH 

—AD 



R 

A4— 

EXCPN0IA(3O)*A 
EXCPNQUA(30)#REF)*B 
I-FETCH CYX 



YES 

XO « 
1XXX 
A L+R«AN 
C E*BS»T30*S3 



0XC6 



-0TX20- 
CXO) 



-EDE 



R EXC I 

E4~ X* —ED 
NO IV ADR TRAP 
BRANCH I-FETCH 
CYX < ADDR 
FROM L ) • 



BRANCH I—FETCH 



-QT200 

<XX) 

EXCEPTION 



HEDE 



BRANCH INHIBITED 



01 C7 



XXXO 

WStE*LSA 
I S*L»LS 
IA40/2*A 
E*S47 
R I^ETCH 
J4— ** — JD 
EXCPNQIA(30)*A 
EXCPNn<IA(30)*REF)->B 
I-FETCH CY 1 



•OT1X0- 



-ADE 



(OOfOXtXOfXX) 
I-FETCH 



I 
I 

-a 

I 
l 



01 01C5 

I I 
A L*R I 
I * 
I ! 
i I 
R TZ*BS I 
N4~ *X — ND 
LATCH ZERO TEST 
PER BYTE STATS 



BRANCH ADDR TO R 
StmB FOR ZERO 
RESULT* 



-QJ60 0 M DE 

(OX) BRANCH 
WITH CONTENTS 
OF R 

(XX) NO BRANCH 



I I MACH C20S0 I DATE 10/01/65 SHEET X OA700 

I 254760 X2/2X/64 I NAME I LOG 902 VERSION 

I 255449 09/20/65 I MODE MANUAL I 

I I P.N* 5364719 i BRANCH ON CONDITION CBC«BCR) 

I I IBM CORP. SDO I BRANCH ON COUNT (BCTtBCTR) 



these i#stR3 work with 
opnd 1 in the form 
xx xx xx t2 where 
x - undisturbed 
t - 4hbit tag 

2 - 0 FOR INSERT KEY 
— UNUSED FUR SSK. 

OPND 2 IS ANY ADDR. 
IN THE BLOCK (2048 BYTES) 
WHOSE TAG IS CONCERNED* 
IT MUST HAVE 4 LO 2ER0 
BITS TO AVOID SPECN TRAP* 



SSK 

XOOOXX 



QA110 # GBE— 

C1000XX) 
U001XX) 
SECOND LEVEw 
I-FETCH 



RR (0-) 2ND LEV 
I-f ETCH LEAVES 
OPND 2 (ADDR) 
IN R. 



0000 
R3*U 
U*W 
3*LB 

FN tMD*LS A 

L5*L*LS 
E(13>*WPN 



01A2 



D 

L 
L 
C 
R 

El- 



la 



1 

— EA 



MONITOR MODE OK 
01 — 018 



*0- 



TAG TO L FROM LS 

(OPND II. 
SET WFN TO CROSS 



B LLB+U 
— B ?*WR «0- 

B WR*F 
I 

R WR«0 
E3— 0* —EC 

TAG (FROM L( 24-27 

TO F - CROSSING 

TO GET TAG TO 

W(4-7> FOR F. 



NOT MONITOR MODE 

11 ^ 0183 
— E 0010 I 
B E+WR 
B W+MDtF U 
I 



ADDR OK 

A R»A 

— -C F*K£Y 



01C9 



XX - 
E OUO 
A RfE*A 
■C F*KEY 



01BC 



E5 — XX — €£ 
ADDR TO SAR 
WRITE TAG 



E7— IX —EG 
ADDR+6 TO SAR 
WRITE TAG. 
THIS CYCLE NEEDED 
FOR INTERLEAVED 
LCS. 



-QK666- 

(IX) 
DEAD CYCLE 
THEN I-FETCH 



ADR SPEC ERROR 

00 — 01C8 
— E 0110 

B E*WR 
B W*MD«F 



ISK 

1001XX 
E 0000 
R3HI 
U*W 

FN%MD+LSA 
LS*L*LS 
EU3)*WFN 



01 A6 



B 

-B 
L 
L 
C 

R PRI 
Nl~- 



L2— OX —LB 
CODE 2 FOR 
PRIVILEGED OP 
TRAP. 



I*0 



BQ*A«i><>B 
OB 



m — NA 



OPND I TO L» 
SET WFN TO CROSS 



-QT310- 



-LBE 



(OX) 
PROGRAM TRAP 



L4~ OX — LD 
CODE 6 FOR SPECN 
TRAP. 



MONITOR MODE OK 

00 — 0180 

I 

A R»A 

-D 3*MB *0- 
C KEY*F 

i 

R WRsO 

03— *0 — QC 
ADDR TC SAR. 
CHECK SPECIFN. 
KEY*F FOR LCS 

ALERT. 



ADDR OK 
10 

A L.*M 



01CA 



XX - 
KEY*F 



0127 



06~ XX — QF 
OPMP 1 TO M 



Q7— XX — QG 
KHY^F ALSO 
CAUSES HOLDOFF 
FOR LCS. 



XX — = 012A 

E U10 I 

B MD«F*U 
— B ?*WL VR4WR 

B W*MMB 

L WS*E*LSA 

L LS*L*L$ 

C E*S47 

Q8-~ XX — QH 
TAG TO M<24~27) 
CROSSING F TO 
W(0-3>. 0000 TO 
M (28-31). 



XX 



012B 



a 

A 
8 

0 

0 



OElOOtNEE— . 
(XXJ 

INSERT CHAR 



A M*R 

t FN«MD*LSA 

L R*LS 
— *S IA+0/2*A 

R I-FETCH 
j Q9«« =— o 
i EXCPN0IA(.30>*A 
j EXCPNQ(IA(30).REF)*B 

! STORE MODIFIED 

j OPND I. 

j QVLAP l-F^TCH CY1 . 



-QlE 



-QTUO— 
COO.OltlO.llJ 

I-FETCH 



OVERLAP OP BUF FETCH. 
STAT SET FOR I-FETCH 



254760 
255449 

257389 



12/21/64 
09/20/63 

10/20/66 



MACH 

MODE 
P.N. 

ISM CORP. 



C2050 

MANUAL 

5364720 

SDD 



DATE 10/20/66 
LOG 620 



SHEET 
VERSION 



QA800 



: STORAGE PROTECT INSTRS SSK.ISK 
SET KEYt INSERT KEY 



0G300#CFE— 
UOOOXX) 
Ft PT LOAD 



QAU3UGBE— 

(OOOOXX) 

(OOOIXX) 

(OOlOXX) 

(OOUXX) 

(lOOOXX) 

SECOND LEVEL 

I-FETCH 



LNR 



0284 



OOOIXX 

A L*R 

-0— *L FN*MDH.SA 

I L RH.S 

I C SETCRALG 

I R BQ(A»0)*B 

I R LtO) 0 
El— ** — €A 

I IF ImO* 00*CR 
I IF T<0* 01»CR 
I IF 0<T* 10*CR 

I STORE • SET CR 

I ASSUMING NEG* 

I IF POS*DQ 
! AGAIN NEXT CY 



NEG 



*0- 



LCR 



028C 



E*WR 



0011 XX 
E 1000 
A -L*R 
BCVC 

B 

B W*MMB 

MQTl LADDER 
FN«MD*LSA 
R*LS 

SETCRALG 
0 (CAR) 
LI — 0* —LA 
SAVE CAR CO) 

CARO ) 
IF T«0« 00* CR 
IP T<Ot Ol*CR 
IF 0<T* 10*CR 



*0* 



D 
L 
L 
C 
R 



POS 



I 

A 
-A 

D 
L 
L 
S 
S 
C 
R 

Gs* 



01 



0219 



-L*R 
BCVC 

M0T1*ADDER 
FN«MD*LSA 
R*LS 

IA40/2*A 
SMIF 

SETCRALG 
I-FETCM 

** — GC 



NQ OFLO 
POSSIBLE 



SAVE CAR(O) 

CAR(l) 
SUPPRESS MEMORY 
IF OFF BNDS 
AND PREFETCH 
IF T*Ot 00*CR 
IF T<0* 01*CR 
IF 0<Tt 10*CR 
EXCPN0IA(30)*A 
EXCPN0(IA(30)#REF)*B 



COMPLEMENT t 
STORE . SET CR 
AGAIN* 

OVLAP I-FETCH 



COMPLEMENT • SET 
CR* STORE RESULT 

OFLO ONLY FOR 
MAX NEG NUMBER 



LPR 



0280 



OOOOXX 
E 1000 
A L*R 

F4WR 

B W*MMB 
L PN«MD*L5A 
L R*LS 
C SETCRALG 
R LtO) 0 
Ql— *0 — QA 
IF T«0* 00*CR 
IF T<0t 01*CR 
IF 0<T« 10*CR 

STORE t SET CR 
ASSUMING PQ5. 



01 — 021D 
E 0010 I 
C EU3>*WPN I 

! H 



G5— 11 — GE 

SET WFN FOR 
PGM MASK TEST 



I 



RESULT OK 

00 — 021 C 
e 1110 I 
L WStE+LSA I 
— L LS*L*LS I*— 
S IA+0/2»A | 
E*547 I 
R I-FETCH I 
L5— #* — LE 
EXCPN0IAC30)*A 
EXCPNaUA(30)*REF)*B 
I-FETCH CY 1 



I POSITIVE. 



10 



021E 



I 



-L*R 
BCVC 

HQTl»ADDER 
FNtMIHLSA 
R*LS 
SETCRALG 
0 (CAR) 

0# — GE 

¥ 



L 
C 
R 

Q5<— 
SAVE CAR(O) 

CAR(l) 
IF Ts0» 00* CR 
IF T<0« 01*CR 
IF 0<T« 10»CR 



LTR 
— 0 



^OlOXX — 0288 

A L*T 
~L FN.MD*L5A 

L L*LS 

S IA+0/2*A 

S SMIF 

C SETCRALG 

R I— FETCH 

A 7— ** —AG | 
SUPPRESS MEMORY | 
IF OFF BNDS 
AMD PREFETCH I 
IF T«0» 00*CR I 
IF T<0* 01*CR ! 
IF OCT* 10*CR I 
EXCPNQIA(30)*A | 
EXCPN0(IA(30>tREF)*Bl 



STORE* SET CP* 
OVLAP I-FETCH. 



I LR 



02AO 



jOOOXX 

A L*T 

PN*MD*L5A 
L*LS 
IA40/2*A 
SMIF 
I-FETCM 
E7— ** —€G 
STORE* OVLAP I-FETCH 



L 
-*S 
S 
R 



^B730— - 
(10) 
I-FETCH 



-€AE 



-GEE 



-0B730— 

(11) 
TEST MASK FOR 
OFLO TRAP 



-QT105— GCD 
(OOtOltlOill) 
I-PETCH 



-QT1J 
(DOfOltlOtll) 
I-PETCH 



COMPLEMENT* 
STORE* SET CR 
AGAIN. TEST 
OFLO* 



234760 
£55449 



12/21/64 
09/20/65 



MACH 
NAME 
MODE 
P.N* 

IBM CORP* 



C2050 

MANUAL 
53 64 7? 1 
SDD 



DATE 10/01/65 SHEET 
LOG 902 VERSION 

PXD PT RR LOADS 
LPR I MR LTR LCR I R 



1 QB100 I 



?AUltGB£— — 
0100XX) 
(QUOXX) 
< OH XXX) 

steam lev©* 



ORND 2 IS IN L 



OlOOXX 
I OOW 
i L#H 



029# 



L FN*M&*LSA 
L LS+L+L* 

OX * 

«AND) 



OUQXX — 0296 

e oooi 

A L*M 

■HO MB-l 

L FN«MDH.5A 
L LS*L*L$ 
C EU3)*¥FN 
CW OX «-%<A 
OR 



OHIXX — - 029C 
E OOU 
A L*M 

MB-i 
L FN«MD+LSA I 
L L$*L*LS^ 
C E(13)*wFN { 
OX -*€A 
XR (EXa OR) 



SET 



to * 

TO U 
■ 2 



IHH 

I-FETCH-RX V 



OPND I IS IN L 

Q*»ND 2 FETCH 
HAS BEEN 
INITIATED 




OiOOXX < 
€ 0010 

0 d*m 



0291 



LI— OX «rLA 

N t/ 



(AND) 



0299 



OHOXX 
E 0001 
0 t»M 
*) MB-1 
C EU3**WFN 



Nl— OX — NA 
0 COR) 



HB»atltO f tQOF 3TIMES. 



0238 



B LMBHI MMB^V 
B ?*W 
B W*MHB 

-HD MBHl 

R MB»3 

J4— *X ~-\JD 
COMBINE L AND M 
IN MOVER* A BYTE 
AT A TIME # 



OillXX ■ 
E 0011 
D D*M . 
•D MB-1 
C E(13)*WFN 

x^fixct oS? 



02TO 

I 



ORND 2 FROM SDR TO M 

2 



IS! ST 



4TM T1ME» 
LOW FINISHED 



IX 



023A 



A MH, 
•A BCO 
L FN* MD+LSA 
L L*LS I 
S IA/0+2*A j 
S SM|F f 
C CARUT#0)*CR 
R J -FETCH I 
L6-*~ ** — tF 
SAVE CAR FROM 0 
SUPPRESS MEMORY 

IF OFF BND5 

AND PREFETCH 
EXCRNQIA<30)*A 
EXCPN0UAC3OUREF)*B 



RESULT FROM M 

TO L*LS <OPMD 1) 
CARRY WILL NOT OCCUR 
OVERLAP I-FETCH 



-KHT103 

(00*01*10*11) 
I-^ETCH 



12/21/64 
09/20/65 



t MACH 
I NAME 

f mm 

f PmUm 

I IBM CORfV 



C20S0 

MANUAL 

5364/22 

SflD 



DATE 
LOO 



10/01/65 
902 



SHE£T_ 
VERSION 



I 0B400 



RR*RX AND,ORt£XCL OR* 



aAUUGBE— — 
(0101XX) 
(lOOtXX) 
SECOND LEVEL 
I-FETCH-RR 



OPND 2 IM R 



0A111*CGE- 
(OIOIXX) 

uooixxj 

SECOND LEVEL 
I-FETCH-RX 



OPND 2 IN R 



QE580.EHE- 
(XOtXl) 
HALF WORD 
COMPARE 



1001XX 
-0*E 1110 



D 
L 
L 
C 
I 

Al— 

OPND 1 



3*MB 

FN«MD*L5A 
L$*R*L5 
E*547 



2A4 
I 
I 

I* 



WO CARRY 



XX — AA 
TO R 



SET STATS 
FOR I-FETCH 
OVLAP* 



2A5 
I 



1001XX — 
E 1110 
D DH. 
D 3*MB 
L FN«MD*LSA I 
L LS*R*L5 I 
C E+S47 I 
El — XX — EA 

OPND 2 TO L 
(FROM MEM) 

OPND 1 TO R 
i (FROM LSi 

SEE NOTE ABOVE* 



*~0 



XX — 243 
E 1111 1 
A R~L»M 
—A BCVC |* 
B E*WL 
B W*MMB 
D MOmADDER 
C SETCRAL6 
R <CAR) 
C3— X* — CC r*0 

SAVE CAR(O) V 
CAR(l) 

IF T*0* 00*CR 

IF T<0« OUCR 

IF 0<T« 10*CR 



COMPARE BY 

SUBTRACTION* SET CRt 
CARRY (OFLO) MEANS 

SIGN OF RESULT WRONG* 
RESULT SIGN TO Mf WITH 

NONZERO FORCED BY 

EMIT TO M THRU MOVER* 



n 



XO — 0286 
E 1110 ! 
L WS*E*LSA 
■HL L$*L*LS 
S IA+0/2»A 
C E*$47 I I 

R I-FETCH I 
A5~ — A£ I 

EXCPN8IA(305»A ! 

EXCPN0<IA(30)pREF}*B 

I-FETCH CY1 



CARRY 

XI — ~ 

mo 

M-fSGN^T 
WS«E*LSA 
LS*L*LS 
IA+0/2»A 
SETCRALG 
I—FETCH 



E 
A 

~L 
L 
S 
C 
R 



287 
I 



»AEE 



-QTUO— 
(00t01fl0.il) 
I— FETCH 



*# —EE 



IF T«0« 00*CR 

IF T<0« 014CR 

IF <*T« 10*CR 

EXCPNQIA(3C)*A 

EXCPN»(IA(30)*REF)^B 

I-FETCH CYCLE 1 

ALSO INVERT COND REG 
SETTING BY CHANGING 
M SIGN* N0N-2ER0 
VALUE IN M PREVENTS 
FALSE 00 SETTING* 



! 0101XX 

wj 

L FNtMDHSA 
L LS»R*LS 

I 
i 

H— 

OPND 1 



0294 

I 



XX 
TO R 



—LA 



OP MD 1 TO R 
OPND 2 TO L 

0101XX 
— I 
7) THL 

1 FN«MD*LSA 
L ! S*R»LS 

' ! " 
I 

Si — 



0295 



XX 



1 

-5A 



XX 



0246 



pw. *T 
BCO 

MQTUADDER 
IA+0/2*A 
S SMIF i 
C SETCRLOG I 
R I-^ETCH I 
N3— — NC 
SAVE CAR FROM 0 
SUPPRESS MEMORY 
IF OFF BNDS 
AND PREFETCH 
IF T*BS*0*00*CR 
IF T*BS#0 AND 

CARfO)«0* 01 «* 
IF T*BS*0 AND 

CAR{0)»1tlO*CR 
EXCPN0XA<30)*A 
EXCPNQUA(30)*REF)*B 



-QT10 5 N CE 

(OOtOltlOtll) 
I*^ETCH 



COMPARE BY SUBTRACTION* 
SET COND REG* 
OVERLAP I-FETCH 



XX 



0247 



A R~L*T 

-A BCO 

D HGTt+ADDER 

C SETCRLOG 



53- 



IX — SC 



IF T*BS*0»00*CR 
IF T#B5*0 AND 

CAR(0)*0t01*CR 
IF T*BS±0 AND 

CAR{0)*a*10»CR 



COMPARE BY SUBTRACTION* 
SET COND REG* 



I 

I 254760 
I 254765 
I 255449 
I 



12/21/64 
01/13/65 
09/20/65 



I MACH 



I 



NAME 
MODE 
P*N* 

IBM CORP* 



C2050 



MANUAL \ 
5364723 
SDD 



I DATE 

I LOG 



10/01/65 
902 



-QT100— 
(IX) 

I— FETCH 



SHEET 1 QB500 

VERSION 



-SCD 



COMPARES - ALGEBRAIC/LOGICAL 
RR.RX (CRtC CLR*CI )* 



QA111.GBE— ■ 
C 1010XX) 
UOUXX) 
SECOND LEVEL 
I-FETCH-RR 



aE580*LFE— 

(OOtOl) 

HALFWORD 

A DDt SUBTRACT 



OA11LCGE-— 

aoxoxx) 

UOXIXX) 
SECOND LEVEL 
t-PETCH-RX 



OBIOO.EAE— 
ao> FIXED 
PT LOADS 



QB100»GEE— 
1 11 ) FIXED 
PT LOADS 



lOlOXX — 02A8 
E OOIO j 
B MD«F*U I 
-*B U*W I*- 
B WL*J I 
L FN*MD*LSA 
L LSWLS 
C E(13)*WFN I 
Ai— . 00 — AA 

OPND 1 TO n. 
Rl TO J 
( SEE NOTE) 

SET WFM TO AND 



02AC 
I 
I 



iouxx ~ 
e ooio 

B MDtP*U 

U*W I' 

B WL*J I 

L FNtMD*LSA I 

L LS*fHLS I 

C E(13)*WFN I 
El— 01 —EA 
SAME AS ABOVE 



1010XX — 
E 0010 
B MD*F*U 
~0— **B U*W 



0PA9 

I 



B WL*J 
D D*L 

L FN«MD*L5A 
L L5*R»L$ 
E<13)*WFN 



00 —JA 



OPND 2 TO 1 
OPND 1 TO r 
Rl TO J 

(SEE NOTE) 
SET WFM TO AMD 



— S 



1011XX — 
E 0010 
B MT)*FHJ 



0?AD 
I 



B WL*J 
0 D*L 

L F%MD+LSA 
L LS*R*LS 
E(13)»WFM 



Nl~ 



I 

01 ~-WA 



I SAME AS ABOVE 

i 



H 



ADD 

00 0220 

1000 
A R+L*R 
A BCVC 

B E*WR 
:B W*MMB 
L FNf J+LSA 
L R*LS 
C SETCRALG 
R 1 (CAR) 
C3~ 1* — cc 



SAVE CAR(O) V 

CAR(l) 
IF T»0% 00*CR 
IF T<0« 01*CR 
IF 0<T* 10*CR 



SUBTRACT 

01 - 
~€ 1000 

A R-i>R 
—A BCVC 



0221 



E*WR 
W*MMB 

HOTl*ADDER 
FN* J*L5A 
R*LS 
SETCRAt G 
1 (CAR) 



G3~~ 



1 $ —"•GC 



SAVE CAR(O) V 

CAR(l) 
IF T«0* 00*CR 
IF T<0« 01»CR 
IF 0<T* 10*CR 



OPND 1 ADDR IS MOVED. TO 
J FOR RESULT STORE* 
THIS IS REQUIRED BECAUSE 
HALF-WORD CQE380) CLOBBERS 



MD 



ADD OR SUBTRACT 
STORE SUM IN LS 
SET CQND REG 
TEST OVERFLOW 
EMIT 1000 TO M FOR 

PRG MASK CHECK 

IF OVERFLOW* 



0- 

I 
! 
I 



MO OVERFLOW* 

5 0 — 021A 
~*E 1X10 

L WS*E*LSA 
— L LS*L*L5 

S IA+0/2+A 
r-C E*S47 

R I-FETCM 

EXCPN0IA(30)*A 
EXCPNQ(IA(30)*REF)*B 



-OTHC 
(00f01»10»ll) 
I-fETCH 



021 B 



OVERFLOW* 
11 

E 0011 
B PSW4*U MMB*V 
~B ?*V 

C E(23)*CR 



! 

N5~~ XX ~NE 
SET CR 11« 
TEST PRG MASK 




00 — 0218 
E 1000 I 
B E*WR I 

B W*MD*F \+m 



-NGE 



I 
I 

N7~ OX — NG 
TRAP* CODE 7 
FX PT OFLO 



-OT310— 

(OX) 

PROGRAM TRAP 



OJt 1Q#GHD- 
(U) SHIFT 
LEFT ALG 



•JIE- 



QJ150. 
(11) 
SHIFT LEFT 
DOUBLE ALG 



ALL ENTRIES HAVE 
WFN SET TO -AND- 
AND MATCHING BYTE 
IN M FOR PRG MASK TEST* 



254760 
255449 



12/21/64 
09/20/65 



MACH 
NAME 
MODE 
P*N* 

IBM CORP. 



C2050 

MANUAL 
5364724 I 
SDD I 



DATE 
LOG 



10/01/65 
902 



SHEET 
VERSION 



1 QB730 I 



ADD/SUBTRACT RR/RX IA*AR*S*5R) 
ALSO COMMON MASKD TRP SENS. 



aAXXX*CG£— — 
UXXOXX) 
(XIXXXX) 
SECOND LEVEL 
I-FETCH-RX 



CaAXlltGBE-— 
(XXIOXX) 
(XIXXXX) 
SECOND LEVEL 
I-TETCM-RR 



lXlOXX • 
t 

D DK 
h*l FNtMD*L5A 

L LS4R+LS 



02B9 



AX— 



XX -—A A 



OPND 2 IM L 
OPND i IM R 



ADD LOG* 

XX 



0249 



I 
I 

I XXIOXX — 02B3 

f L FN«MD*LSA 
4— -0*L LS*R*LS 



0*L 



R+L*L 
BCO 

FN«MD*L5A 
L*LS 

CAR«<T#0)KR 
X X mmm GC* 
SAVE CAR FROM 0 



L 
L 
C 



ADD* STORE 
RESULT IM LS 
(OPND X) 



EX— XX — €A 



jllXXX 

L FNiMD*LSA 
*-L L5*R*LS 

I 
I 
I 

LX~ 



02BC 
1 



i 

XX **"H-.A 



OPND 2 IM L 
OPND X IN R 



SUBTRACT LOG* 

XX — 024A 
I 



A 

D 
L 
L 
C 



|UXXX « 
D D*L 

L FN«^B*LSA 

L5»P<R.S 



02BD 



L 

I 
I 

Ql 



RH.*L 

BCO I- 
MQTX*ADDER 
FNtMD*LSA I 
L*L5 I 
CARWT#0)*CR| 
]\J3~~ XX — NC 

SAVE CAR FROM 0 
SUBTRACT BY 

COMPLMNT ADD* 
STORE RESULT 
IN LS (OPND X) 



•KJTX0O-— • 
CXX) 
I-FETCH 



-cce 



XX —OA 



254760 
255449 



12/21/64 
09/20/65 



MACH 
NAME 
MODE 
P«N« 

IBM CORP. 



C2050 

MANUAL 

5364725 

SDD 



I DATE 
I LOG 



10/01/65 
902 



SHEET X 0B750 
VERSION 



LOGICAL ADD/SUBTRACT RR/RX 
(ALtSL ALRtSLR)* 



OAXXItCGE 

(XXOOXX) 
SECOND LEVEL 
MFETCH-RX 



aAIXXtGBE— 

(XXOOXX) 
SECOND LEVEL 
I-^ETCH-PR 



0E580#LFE 

(IX) 

HALFWORD 
MULTIPLY 

OPNDX IS IN R 
QPND2 IS IN L 



XXOOXX — 02BX 

L FNtMDQXH.5A 
m ^L LS*L*LS 
I 

P Bfl(A«0)+B 
P MD3»0 0 
Al— — AA 

FETCH OPND X ♦ L 
CHECK VALID SPECN 



i 



xo 



0226 



D+P 

L<0)*LSGNS 



EX— XX — €A 

FETCH 0PND2 TO P 
SET L SIGN STAT 
TO OPNDX 



HOOXX 



02B0 



L PNiMDCU*L$A 
-*L LS*R*L5 I*- 

C L<0)*LSGM5 I 

R MD3»0 i I 

JX~ *I — JA 
FETCH OPNDX ♦ R 
SET L SIGN STAT 

FOP 0PND2 
CHECK VALID SPECN 



XX 



0227 



A L*M I 
-C R(0)*R5GNS *— 0 



P LSGNS I 

C3— *X ~-CC 
0PND2 ♦ M AS 

POSSIBLE MPCD 
TEST L SIGN FOR 

RECOMPL IF MEG 



OX «— 0239 

c xooo 

A R*L 

-B E*WL I* 

B WL*Gl 
-C E*S03 

P RSGNS 

AS— » X$ — AE 
OPNDX IS IN M IN 

TRUE FORM 
0PND2 ♦ L FOR 

POSSIBLE COMPL 
8*GX FOP LOOP COUNT 



STAT2 TURNED 

OFF FOP FIXED MPY 



XX 



02SB 



XX 



023B I 
I |*» 
A H>M 

-D HOTX^ADDER 
I 
I 



E5 — OX —EE 
OPNDX IS COMPL 
SO RECQMPLEMENT 



-L*P 

HOTX^ADDER 



A 6— XX — AP 
0PND2 IS IN COMPL 
SO RECOMPL 



I 

A 
-A 
L 
L 
R 

A7— 



XX 



024B 



MfL*T 
BOO 

WSXK.SA I 
R*LS I 
(CAR) I 
X* —AG 



I 



XX 



B R3*U 



SAVE CAR FROM 0 



COMPARE OPNDS IN 

M AND L 
SAVE R IN WSX 



— 02BF 
UR^WR 

XX —AH 



A8 — 
LOM 
0PND2 IS MPLP 



XO 



028A | 



M~L*T 
BCO 
HO TX LADDER 
WSIH.SA 
R»L5 

(CAR) 



I I 
I 



XO 

I 

A M#R 
»L WSlfLSA 
L LS+L+LS 



028E 



£7— 



X* —EG 



E8— 



XX — EH 



"KL SO EXCHANGE 



SAVE CAR FROM 0 
SAME AS ABOVE 



I 

A 
-B 
B 

I 
I 

E9— 



XX 

L*M 
R3*U 



024C 
I 



UR+WRl 

I 
I 

XX — €1 



^COMPLETES THE 
CHANGE 

BYTE 3 OFMPLR 
TO W 



EX- 



A 
B 



024 D 
I 



OX ~ 
MS OXXO 
B 

•B Vv*MD«F 
1 
I 
I 

L3— 



0225 



E*WR 



XX 
00X0 
R*P 

SR4*F 
E+WR 

B W67*MB 
D GX-X ! 
R R(3X) *R»0 i 

Jtymm mmm J J 

SHIFT MPLR RIGHT 
LOADING LO DIGIT 
INTO F 

MB NOW ■ 2 



I 



-JIE 



-OG701— 
(OOtOX'XO) 
MULTIPLY LOOP 



-CCE 



-GT3X0~ 

(OX) 
PROGRAM TRAP 



OX '*ww4» r C 



XX < 
E OOOX 
A L*M 
-<*B WL*MD 
D G2«*X 

C E(23)*L5FN 



0223 



INVALID RX IS ODD 
GO TO INTERRUPT 
SET IRPT CODE TO F 



I 



Mi— XX — NA 
SET G2 MEG FOR 

HALF WORD 
SET LSFN TO WS 



254760 
254765 
255449 



X2/2X/64 
0X/X3/65 
09/20/65 



I MACH 

i NAME 

1 MODE - 

I P»N# 

I IBM CORP. 



C2050 

MANUAL 
5364726 I 

SDD L 



DATE 

LOG 



X0/0X/65 
902 



SHEET 
VERSION 



FIXED POINT MULTIPLY ' 
HALF WD/RR AND RX FORMAT 



I QB800 I 



00 — 0228 
E 1X10 I 
L WSiEKSA | 
~L LS»LK,$ 

S IA+0/2+A j 
C E*S47 I 
R I-FETCH I 
C3— *+ — CC 

EXCPNQIA(30)*A 

EXCPWMIA<30)tREF)*B 

FULL WORD WITH 
LIKE SIGNS 
00 I FETCH 



•QT110- 



-CCE 



(OOiOltlOtll) 
I-FETCH 



10 



022A 
I 
I 



>AFE- 



3G701. 

(10) 

MULTIPLY LOOP 



» 

A 

~*A 

L 
L 



10 
R»L 



0552 



I 

P*5R4*F|i!«~0 



A -L*R 

\ D H0T1*ADDER j 

I L FN* MD*LSA i 

I L LS*L»L5 j 

I G3-— XX — GC 

j SAVE CAR FROM 0 

I FULL WORD WITH 

! UNLIKE SIGNS 

I COMPL LO PROD 
FETCH HOH. 



PNtMDGl*L5A I 
L+LS I 
R VSGNS G2<0 I 
J2~ — JB 
LSGNVRSGN*A 
FIXED MPY LOCF 
IS COMPLETED 
ALIGN LO PROD 
R TO L CSR4) 
STORE LO PROD 



I 



I 



01 — 
! E 0011 
I L FNts^LSA 
0*** p ** , L L^L S 

S IA+0/24A 
SMIF 

E(23)*L5FN 
I-FETCH 



S 
C 
R 



0229 



L3— 



SUPPRESS MEMORY 

IF OFF BND5 

AND PREFETCH 
EXCPNaIA(30)*A 
EXCPNG(IA<30)«REF)*B 

HALF WORD WITH 
LIKE SIGNS 
GO TO I FETCH 



I 

A 

~D 
L 
L 
I 

G5— ~ 



XX — 024E 
I 

-OL 

C5TAT+ADDER 
FN«MD*LSP | 
L*LS I 



XX 



024F 



XX ~GE 



COMPL HO PROD 
STORE HO PROD 



L FN^MDQl+LSA 1 
-4. R+LS t * 

S IA+0/24A j : 

$ SMIF I \ 

R I «-FETCH i ? 

G6 — m — GF | 

SUPPRESS MEMORV j 

IF OFF BNDS I 

AND PREFETCH \ 

EXCPNQIA(30)»A } 
EXCPfjaUA{30).REF)*B 

STORE LO PROD I 

GO TO I FETCH \ 



11 — 022B 

e ooii i 

-D HOTl^ADDER !• 

L FN«J*LSA ) 

L R*LS I 

S IA+0/2*A I 

S SMIF ! 

C EC23)*LSFN j 

R I-FETCH 1 



SUPPRESS MEMORY 

IF OFF BNDS 

AND PREFETCH 
EXCPN0IA<30)*A 
EXCPNQQAC30UREF)*B 



HALF WORD WITH 
UNLIKE SIGNS 

COMPL LO PROD 
STORE PRODUCT 
GO TO I FETCH 



-LCE 



-QT105— 
COO^OltXOtll) 
I-FETCH 



I 254760 
I 255449 



12/21/64 
09/20/65 



MACH 
NAME 
MODE 
P.N* 

IBM CORP* 



C2050 

MANUAL 
5364727 

SDD 



DATE 10/01/65 
LOG 902 



SHEET 1 QB801 

VERSION 



FIXED POINT MULTIPLY 
POST-LOOP ROUTINE 



QAXXXtCGE— — 
QXOXXX) 
SECOND LEVEL 
I-FETCM-RX 



StAXXXtGBE— ~" 
IXXQXXX) 
SECOND LEVEL 
I-FETCH~RR 



xxoxxx 

D*L 



02B5 



C2~»XX0IXX — CB 
* DVR TO L 



* INVALID ADDRESS 

OX — 023C 
E OXIO I 
B E+WR 
W*MD9F 



02B4 



I XXOXXX 

L WSX^LSA 
— #L L*LS 

i 

i i 

G2~ XX ~GB 
# SAVE DVR IN WSX 



XX 



0250 



L FN*MD*LSA 
*L LS»R»LS 
C L<0)*LSGNS 



R MD3*0 
G3~ *X 



•CEE 



* DVD IS POSITIVE 



! 



L*M 



— OX ~CE 

* XRPT CODE TO F 
GO DO IRPT 



I 

A 
L 



XO 



0292 

i 

slx*q I* 

FN * MDH.5A 
LS*L*LS 



XX ~CG 



* Ha DVD TO L 
LO DVD TO NU5LX 



* ADDRESS IS OK 



I * DVD IS NEGATIVE 



IX 



023E 
I 

R*H I 

FN*MDQ1*LSA I** 
LS4LH.S 
R<0)*RS6NS ! 

(ZOO) j 
X* — GE 



t 



XX 



0293 

j 



* HO DVD TO R 
SET L SIGN FOR 
THE DIVISOR 



L 
C 

R 

G5— 

tO DVD TO u 
SAVE HO DVD IN 

H FOR TEST 
SET R SIGN FOR 

THE DIVIDEND 



! A -t*M 

A BCO 5L1*Q 
D HQT1*ADDER ! 
„ PNtMD*LSA i 
u LS+L^LS I 
G?~ XX •*~GG 
SAVE CAR FROM 0 

* HO DVD TO L 
LO DVD TO MC$LX 
AND COMPL) 



-QT3X0— 
(OX) 
PROGRAM TRAP 




Cd****"* XX ■■•••CH 
* HO DVD TO RtSLl 



I 



XX 



0253 



A M+M 

L 
L 
R 

L2- 



F*SL4*F|*~ 
W51H.5A I 
L3*L*L5 I 
LSGNS f 
*X -HLB 



* LO DVD TO M<SL4 
LOADING F) 
DVR TO L 



XX — 0254 
i 1 
A H,*H I 
CSTAT»ADD£R M 



XX 



0252 



! 

A ~t*R 

<HSLX 
D CSTAT*ADDER 



L?«p*- 



XX •■••LG 



! 



XX '••••'LH 



* MO DVD ( COMPL) 
TO HCFQR TEST) 



* HO DVD TO RfSLl 
AND COMPL) 



* DVR IS NEGATIVE 
XX 023F 

I 

A Hl*L 

D H0T1*ADDER 



* DVR IS POSITIVE 



a2~ ox ~as 

# COMPL THE DVR 
TO L 



A 

B 
B 

D 
R 

04< 



023D 
I 

\ 



OX * 

oxxx 

HML'frT 

BCO 
E*WL 

WL*Gi ! 
HOTX*ADDER ! 

{ CAR) I 
X* **-0D 



~0B9QX-~- 
UO«XX> 

DIVIDE LOOP 



~QDE 



SAVE CAR FROM 0 
* ? TO GliFOR 

LOOP COUNT) 
TEST FDR DVR 
GREATER THAN 

HO DVD 



I 254760 
I 255449 



X2/2X/64 
09/20/65 



MACH 
NAME 
MODE 
P..N# 

IBM CORP* 



C2050 

MANUAL 

5364728 

SDD 



DATE X0/0X/65 
LOG 902 



SHEET X OB900 I 

VERSION 



FIXED TOINT DIVIDE (DR«D) 
PREH.OOP COMPLEMENTING 



»OT31 0 ■ C BE 

(OX) 

PROGRAM TRAP 



aB900»QDE- 
<XO«Xl) 
P RE-LOOP 
SETUP 



* ILLEGAL WD SI2E 

XI — 0297 
E 1001 

B E*WR 
~*B W+MD9F 



C2- 



OX -~CB 



* IRPT CODE TO F 
GO TO IRPT ROUTINE 



* COMPL ADD i 

XO 0296 

I 

A R-L*R 

-A F»$Li*F 



D HOTl*ADDER 

R (200) 
G2~- X* — GB 



* DVD-DVR TO R«5L1 



* TRUE ADD 2 

XI — 029B 

I 

A R4t>R 
0-~-A F*SL1*F 



* TRUE ADD % 

XX — 0255 



I 

A R4t»R 



F*SL1*F 



(200) 



# TRUE ADD 3 
XI 



I 

A R+L*R 



029F 
I 



* TRUE ADD 4 

XI 02A3 



I 



F»SL1*F|# — »0 "A 



A R+L+R 



R 

G3~ 



<zoo)i 

X* — GC 



* DVD+DVR TO R*SL1 



D Gl-1 
i 

R 

L2— 



* DVD+DVR TO RtSLl 
REDUCE LOOP COUNT 



$ COMPL ADD 2 

XO — — 029A 

I 

A R-OR 

F*5L1*F| 
D HOTl*ADDER 

R (200)1 
L3~ X* ~LC 

* DVD-DVR TO RtSLl 



i 

! } 
R {20011 
G4~ X* «—*GD 

* DVD+DVR TO R« 5L1 



i 
i 

G5~> 



F*SL1»F{*- 



(ZOO) I 



* DVD+DVR TO R«Sl1 




! $ COMPL ADD 4 

XO — 02 A2 



A R-i.*R 

F*5L1*F 
D H0T1*ADDER 



(200)1 
X* — LD 



* DVD-DVR TO R*SL1 



R Gl=0 
L5~~ 



(200) 
— LE 



* BVD-DV'R TO RtSLl 



* LOOP FINISHED 
CORRECT REMAINDER 



11 

I 

A R*R 

A 

I 

I 

I 

C6~ 



022F 



F+5R1+Q *- 



XX — CF 



* RMDR TO R SRI (IN- 
SERT 1 TO SIGN TO 
RECOVER SPILL) 



* LOOP FINISHED 

PiO RMDR CORRECTION 



022E 



10 

! I 
A R*L 1 
~-A SRl*Q 
L FNtMD*LSA j 
L LS*R»L*LS j 
R RSGNSI 
G6~ — GF 

RMDR TO L SRI 
AMD TO LS PER MD 
(ASSUMING A 
POSITIVE DVD 5 



#SAVE ORIGINAL 
REGISTER DATA 
IN R 



* REPEAT LOOP WITH 
NEXT ADD TRUE 



01 



022D 

1 



A M*M 



L6 — 



F*SL4*F 



XX 



#BRING NEXT DIGIT 
OF LO DVD INTO 
F 

TAKE THE SUOT 
DIGIT IN INVERT- 
ED FORM INTO M 



* REPEAT LOOP WITH 
NEXT ADD COMPL 



00 



i 

A M*M 



022C 



D Gl-1 



F»SL4*F j 



as — XO ~~QF 
BRING NEXT DIGIT 
OF LO DVD INTO , 
F 

TAKE THE QUQT 
DIGIT IN INVERT- 
ED FORM INTO M 

REDUCE LOOP COUNT 



A 

L 
I 
R 

CB — 



XX - 

R+L*L 
FN«MD*LSA 
LS*R«L*LS 



0256 
I 



RSGNSI 
X* — CH 



* RMDR+DVR TO L 
AND LS PER MD 
(STORE ASSUMING A 
POS DVD) 

*SAVE ORIGINAL 
REGISTER DATA 
IN R 



-GB902- 
(X0%X1) 
POST-LOOP 
ROUTINE 



I 254760 
I 255449 



12/21/64 
09/20/65 



MACH 
NAME 
MODE 
P.N* 

IBM CORP. 



C2050 

MANUAL 
5364 72 9 

5DD 



DATE 
LOG 



10/01/65 
902 



SHEET 
VERSION 



1 0B901 



FIXED POINT DIVIDE (DRtD) 
DIVIDE LOOP 



* DVD WAS NEGATIVE 
XI — 02A7 



A -in. I 

i— #D HOTX*ADDER 

C2~ XQ — CB 



RMDR ( COMPL ) TO R 
AND LS PER MD 



* DVD WAS POSITIVE 
XO — 02A6 



A M»L*M 
—A F*SL4*F| 
L W51+LSA 
L R*LS 
i 1 
63~- XX — GC 
QUOT TO LfM(SL4) 
.'BRINGS LAST 
DIGIT IN FROM F) 



*SAVE ORIGINAL DATA 
IN WSl 



♦RANGE MAS BEEN 
EXCEEDED 

00 — * 0230 
I 



L FN«MDG1*LSA | 
L L*LS J 

C6— XX — CF 

* RESTORE ORIGINAL 
LO DVD IN GEN REG* 



XX ~— 

L WS1K.SA 
«L LS*R*LS 



02C4 



C7— XX — CG 
* FETCH HO DVD TO R 



XX — 02C5 

E 1001 S 

B E*WR | 

-B W*MD«F i*~ 

L FN«MD*LSA | 

L R*LS | 
I 

C9— 



-GT3l> 

tOX) 



-CHE 



PROGRAM TRAP 



OX ——CM 



* RESTORE HO DVD 
IN GEN REG 
SET IRPT CODE 



* RANGE 
EXCEEDED 



XX 

I 

A ~L»R 



! 

0257 | 
I ! 
I ! 



— H. FN,MD01*LSA l#CM> 
L L5*L?R»LS J ( 

R VSGMS T(05 I 
G5— — >&E 
LSGNVRSG^A 
* (ASSUME SIG*JS APE 
EVEN) 

IHVEPT auoT TO R 
AND TO LS 

#SAVE ORIGINAL DATA 
IN L 



#SIGNS UNLIKE 
TFST RANGE 



10 0232 

i i 

a n+T I 

-A BCVC j* 
D HGTHADDER i 



R 0 (CAR) | 

G?~ G* — GG 
SAVE CAR(O) V 
CAR(l) 
*>H*i TO T FOR A 
ZERO TEST 



❖RESULTS IN PANGE 



«XGNS ALIKEtRESULTS 
WITHIN RANGE 



L 
S 

c 

R 

L7- 



01 — ~ 0231 
1110 1 
WStE*LSA 
LS*L*LS 
IA+0/2*A 
E*S47 
I-FETCH 



H_GE 



-OTilO- 
<00«01«10tll) 
I—FETCH 



EXCPNniA(30)*A 
EXCPNQ(IA(30)#REF)*B 
♦DIVIDE IS COMPLETE 
DO I -"FETCH 



*5IGfJS UNLIKE RESULTS 
WITHIN RANGE 



11 



0233 



M*L 

HQTl*ADDER 
FN«MDQ1*LSA 

L*LS 
IA+0/2*A 
SMIF 
I-FETCH 



07— 



-OGE 



-QT105— 
<00t01*10*lli 
I-FETCH 



TWOS COMPL OF QUOT 
TO Li LS 



SUPPRESS MEMORY 

IF OFF BNDS 

AND PREFETCH 
EXCP<MQIA(30)*A 
EXCPNQ(IA(30)#REP)4B 



I 254770 
! 255449 
} 255785 
I 
I 



02/01/65 
09/20/65 
04/15/66 



! MACH 
I NAME 
I MODE 
i P.N« 
I IBM CORP. 



C2050 

MANUAL 
5364 730 
SDD 



DATE 
LOG 



08/11/66 
604A 



SHEET 

VERSION 



QB902 



FIXED POINT ' DIVIDE (DRiD) 
POST lCKJP COMPLEMENTING 



flUOOO) 

.asst. 



000 COS 0130 




L ttM&A 
L L#LS - 
C MtBWfW 
Hi— XX 



*m> 'm«i to 

»XSRLA»1ENT TP 
F0*W -f 1MT tfPT 

byte aw ecru 

AND PUT TO WU 

length field w 

ft 'BYTE 1 TO 

set wu to xo^ir- 25 ! 
bi#o 



op coots 1$ 

XI C03 0DBB 

e oooi 



XX C03 00OA 
1000 
L#H 

E*WR 

WMOtF 
O*L0 



XX €03 



MDtF*U 
0 MLB+V 
§ T*H 



XX •'"HSC 



4*— 



XX C03 0016 



XX — "Ofi 



R 

GSM* 



WR«0 

x* — G6 



*S 1IMH0/2*** 
C i#$*7 

r aoTb»1)*a 
r lAiSo> $7 

C7«*» *# ~<-C0 



IC TO SAR# SET 
SWS 4-7 TO O0O1* 

branch on w*m 
bit of tm and 

STAT 7 <«XBCUH')t 



«aco3i- 

(00*10*11) 



*—6 



a to r reg 

01*1 A0R TO M 
SET LB»0 



BWV 1 

CODE AND 0* 



branch on xor 
result between 

i AND SECOND 
HALF OF OR COOK 



OR COOB # 60 

XO C03 ODBA 



B1*0 

111001 C03 0I3* 

0 #10 
L VISIHSA 

LI— XX —LA 



FIRST LEFT BYTE 
ADR <0P1) TO L 
AND WSi« 

LENGTH FIELD FROM 
M BYTE 1 TO Gl*G2» 
SET Vm TO X0R# 



$7 

J7— m —jo 

EMIT INVALID OP 
CODE <000i» TO WUF* 



-QNU1« 
<0X*1X> 
INVALID GROUPS 



1 if 20/67 



HACH 

mm 

'mm- 

F*N» • 



C2030 

MANUAL 
§37fI3t 

WW' - 



BATE v 01430/68 
LOG 63*7 



SHEET 1 0CG30 
VERSION "003 



m&tit LEVEL , fefEgfc^ ' ' v 



(OOtlOtlU 



lilt 30ml 

16 C03 ODD* 

d mm 

l» LS^L^LS 
f KM* 



CI**» XI -*CA 
men Op BFR WSI* TO tt 

tm m to mm* 
Momtirr ■ mb to t • 



XI COS 003F 



EXECUTE 

m 11 C03 ODD? 

* LS#L#L$ 

$3 



A 'LRL#MHL 

L L$*R*L$ 
BOtlSYL 



XX «*»CC 



|0M 



L23#xooi 

T#L T< 0-3 HMD 
T(CHLSH*U*»9!> 
(B«0t*$l 



IN$T 



SET'l SYL# 
3 MALF**3RD OF 

J^TCH^riBw TO R 
FROM *$!• 



FETCH ®F BFR WS1* TO U 

decrements to a. 

BRANCH ON STAT 3 

(off if mm mm 
syllable needed) • 



XO C03 003? 

R/**A 
WSI*LSA 

ls^r^ls 



XO —tnHS^ * 

instr adr cr/«u to sar# 

FITCH OFl W TO R 
FROM WSlt 



IAR 30*0 

00 C03 ODD* 



WS1#LSA 
LS^ R^NLS 
IA+2 

IVA 
X# **HUjft 



I 

c 

R 

U— ■ 

DECREMENT m TO 2* 
FETCH WS1 (OF! ADDRESS) 
TO R, 

TAR/2 TO XAR» 

§R ON INVALID ADR 

TO SARt 



XO C03 013A 
f 1110 
D DfMHL 
H VStEHJA 

l uts 

lOtlSYL 

XX •*H3C 



T*L T (0-3 HMD 
T(0*1S)#M(1«WI) 
(BuOHSI 
SET 1 SYt 

instr to of buffer 

(WS1<U# 



XI C03 0131 

I 0101 z«m 

HI W»MD*F 



XX C03 001A 
0000 

, MMB#V 

ul#*l vr*nr 



FN*MD#LSA 

ls#l#ls 

E#BS 
SI 



B2#0 

0X,C03HD|At 
6 0000 
A M23/L*RtA 
— B R3*U 

b y*w 

B W?#NB 
C E*S03 
C^**** XX * 



f 

h 



ADD BASE ADR + 
DISPLACEMENT TO 
FORM OPS RfOHT 
byte ADR TO R 
AMD SAR* ■ 

set m to ofi 

iVTI ADR FROM 
R BYT! 3* 
RESET STATS 0-3 



6* 



B2»0 



00 Jo 

M23»RtA 
R3*tl 

VfC^^MB 
£♦$03 

XX 



i 
A 
HB 

B 
B 

C 



C03 01AB 



(XX) 



#x — m 

reset byte stat$# 
clear $2 field 
otnr of w byte 2 

VIA MVR« 
BE TO L 

BRANCH ON STAT 1 
(B2*0)# 



DISPLACEMENT TO 
R AND SAR mZU 
SET MB TO 0F1 
BYTE ADR FROM 
R BYTE 3# 
RESCT STATS 0-3 



-0T31 
(OX) 
INTERRUPT 



L5*<* OX — LE 
EMIT INVALID ABR 
CODE (§101) TO MD%F» 



0 
3 
1 



2$222f 



mm 

NAME 

mode 

FtN# 

IBM CORF* 



C20SO 

MAWML 

5379139 

$DD 



DATE 



01/30/6S 



SECOND LEVa 
.INVERSE MDVf 



SHEET 1 0C03I 
VERSION • C03 

<1«*FETCH , 

DATA ADR .DECODE ^ 



xx co3 ooxt 



0W31#CII*"* 
(XX) 



*B R3*U 1*** 



xx co3 ooae 

1 0*L 



XX —CI 



**T Li TO OH BYTE 

adr mm n byte 3* 



On- 



xo 



XO C03 0I3E 

LLB*U 
W^MMB 

WB+I 
X*B$*MB 
G2/MB3 



OX COS ODBX 



c 

R ..... 



MOVe OWE BYTE 
FROM L TO M# 

asks* 

set byte stat 
according to 
branch on 

- all bytes in 
l fr5ce$sed« 



LB**! 



R LB«0 

C6*"~ >0* 
DECREMENT LB 
BRANCH ON NO BYTE 
REGAINING IN 
CURRENT ORt ADRt 



XX C03 00B3 



H*A 



ft 6*<0 

vl6«** #X **«\jF 
STORE OR* WORD t 
BRANCH ON 

ALL BYTES PROCESSED 



XI COS 013? 
I R*4*RtA 
*| H0TX#AB1» 

C§— • 



FETCH NEXT 
ORSU WORD- 



503 0I3F 
lA I 
IBBER 

XX —CH 



OX C03 OIAD 

I mwns 



XX C03 O0?A I 

i oooo 

ft PTf VPH 

**D LB**! 
C E*BS 

R LB»0 



XX — JH 



X* 



IX C03 OIAF 
A M»D*BS 

N7— IX — NG 



UXI 
TO i**FETCH 



•me 



2B2229 ! X 1/28+67 | MACH ■ 1 '^"CaOBO 

NAME' 

MODE , . MANUAL 
R#N# - 99m«0 
IB* CORF* r ' 



DATE 01/30+68 

LOG 627 . , 



sheet - i qgob? 

VERSION • C03 



INVERSE MOVE INSTR 
DATA HANDLING* 



fSS) 



coooixx) 

(OOIOXX) 
COOllXX) 
SECOND LEVEL 
I-^ETCH 



ADDRESS 15 IN L 
OPND 1 IM R« 



L 
5 
S 
R 



OOOIXX — 0704 
I 

A 0#L0 

FWtMD+LSA 
L*LS 

IA+0/2+A 
SMIF 
I-FETCH 
Al~ ~~AA 
SUPPRESS MEMORY 
IF OFF BNDS 
AND rREFETCH 
EXCPNQIA(30)*A 
EXCPNQ<IA<30)«REF)*B 



LOAD ADDRESS 
EFFECTIVE ADR IS IN L 
ZEROS TO L« 0-7) • STORE 
OVERLAP I—FETCH 



I --FETCH 



OOlOXX 



0000 
A u*A 
5 LLB*J 
B U*W 
8 W674MB 
E»BS 



0708 



C 

Gl~ XX ~~GA 
STORE CHARACTER 
ADR TO SAR 
BYTE ADR TO MB 
RESET BYTE STATS 



XX — 0746 

I ! 
8 R3*U | 
— B U+W 

B W*MMB \ 
C 1*BS*MB i 

G2~ XX — G8 
BYTE FROM OPND 1 
UN R) TO PROPER 
BYTE ALIGNMENT - 
IM Mf TURN ON BYTE 
STAT FOR STORE. 



-GBE 



(XX) 
TO STORE BYTE 



OOUXX * 
! 

A L*RtA 

•D 3*MB 

L FN*MD*L5A 

L i»S*L*LS 



070C 



XX »*HMA 
INSERT CHARACTER 
INITIATE FETCH* 
3 TO MB* 
DPND 1 TO Li 



XX — 

I 

A L*M 
B R3*U 
B U*W 
W67»LB 



0725 



B 



I 

I 
I 

N2~ XX ~NB 
SET LB TO CHAR 
BYTEPQSITJON* 
OPND 1 TO M 



XX — 0727 
1 I 
D D*L I 



N4~~ XX — ND 

WORD CONTAINING 
CHAR, TO L« 



XX — 0742 

E mo ! 

B LL8*U 
~B U»W 

B tf*MMB 

L WS»E*L5A 

L L5*L*LS 

C E*S47 

N5~ XX — NE 
CHAR TO M BYTE 3* 
BRING OUT OP BUF 
AND SET STATS FOR 
FULL I-FETCH OVLAP* 



-QASOO— 

(XX) 

TO STORE 
BACK WORD 



-NEE 



a 

E ' 
i 
0 
0 



I 254760 
' 255449 



12/21/64 I 
09/20/65 I 



MACH 
NAME 
MODE 
PtN. 

IBM CORP. 



C2050 i DATE 
I LOG 

MANUAL 
5364731 I 
SDD I 



10/01/65 
902 



SHEET 
VERSION 



RX CONTROL-LOAD ADDRESS* 
INSERT/ STORE CHARACTER. 



1 QE 100 I 



object mstn 
being *£tche0* 



* not mm 



SttffW 

**VETCH 



mm in u 



0I00XX 



ono 



11 



BSfT30*S3 




R B0(A«1)+B 

g$7 WB«0 

adr TO R*SA« 

test mw**mt> 
by- setting 0$ 

branch on $7 
(double execute) 

«I«0 (NO HOP} 



a 

E 

4 

0 

0 



00 — 0740 
IE 0001 

» E*WR 

-"UBWii f 

3*LB 
L FN«HD*LSA 

L ls*l»ls 

C E(13)*WPN 
R B»(A*»1HB 

« mm S3 

m TO L FOR 
WQDIFICATI0N 
WH TO OR* 

1 to m* 



00 



0744 



R 1$ 1010 



01 
0001 
0*L 



0741 



3#LB 

euShhfn 

B0(A»1)*B 
ROD S3 



zero to l (i»o 

WODJHELSE AS 
ABOVE* 



ON BOUNDS 



b llb*u 

B U*W 
B WMD*F 



XX «*-CD 
MOB BYTE TO *B*F 
INSTR TO M* 



XX — 074A 
E 0001 

B MDffn) MHB+V 
— B T*W ■ 
B WfcWHB 
0 WB+X 
C S470E 

C5H» XX -*Ct 
MODIFY (BY 0«> 

BYTE 1 OF INST 
TURN ON $7 



XX 



079® 



***** 

WWB*V 

vlwl 

WL<*HD 
0#LB 

XOtBOtlSYL 



C^F"** XX ** |, *Ct ^ 

(X»0)*S0 
(B*0)#$X 
SET XSYt 

SET X pTO J 
B INTO WD (MVR)* 



OFF BNBS* 



NOT X-SYL OP 



074S 



1 ° l 

B WW0*F 

B*L 
C BOolSYL 

(p4 , * ,, 'w* XX 
(B»0)*Sl 
SET XSYL 



INBTR TO L* 

WOP BYTE TO WD,F 



XX 
000* 
LRL^M 
0*LB 
S470E 



R XSYLS 
0SK* 
L23*X(50X 



CROSS OF OVER 
TO W(0*X8>* 
TURN ON S7 



07©4 



#X 



OX 



070 



R/4*R*A 
MD#F#U WWB*V 
B TW 
B W^WWB 

C X#REFETCH< 
XX 

WODXFY BYTE X 
OF INSTR BY 
OR IN WOVER* ^ 
TURN ON RfFETCN 
FETCH NEXT WORD 



XX 

i 0010 

EWR 

K*»7*WB 
XOfBOtXSYt 



078A 



A 

B 

C 

07*** XX 
(X»OH$0 
(1*0) #SX 
SET XSYL 
MOBXFIEB xnstr 
OVER BUS FOR 
X TO 4 



X-SYL OF 



IX 



0703 



WB«F*U WWB*V 
W*WHB 



B 

D 

C X#RiFETCM 
L6****" XX «"HLI *■ 

wodxfy byte 1 
turn on rbfetch 



LBiX 

!#' 



XX 

w*a 



0793 



MWB*V * 



vl*wl 

V*L*MD 
3#WB 
X0tB0«lSYt 
H(03>*ROAR 



ODD A0DR** 
SFECN VIOLATN 



<X**0)#SO 
<B»omX 
SET XSYL 

R 2 TO J 

Hi TO m (THRU MVR) 
FUNCTIW BRANCH 



E O1X0 * 
B 

-# V#MB*F 



- 0747 
£*WR j 



STAT 7 IS ON TO 
XX — 07Be INDICATE XI<* HOPE* 

STAT '3 pPXCATES & 
tEFT RI0W Him^f 



M*M0 

VR^WR 

tBtHj+X 
FNtW#tSA 

ts^uts 

X^RtFtTCH 
W(03^«OAR 
RX§S0 SX 



C D — CH 

SOt(RX FWT)#A 
CLEAN .OUT B 

til TO I* FROW U REFETCH TURNED ON 
TURN ON REFETCH 
FN BRUNCH AS IN 
NORMAL IHWTCH 



BECAUSE OP BUFt 1-S 
STAT ARE FOULEP UP* 



.•SYL 



XX 
XX 10 

E*WR 

0*LB 

\rfSt«#LSA 
L#LS 
BO* X SYL 



xx 



TfL T(0*3)WP 
TfO**XS^M 

a€T XSYL 

B*D INTO M(X6*»3X) 
WORD TO OP BUF* 



TRAP-CO0E 3 



03*"** 0X 
TRAP -COPE & 




XX — 
E O0XX 
B 



0743 
E*WR 



STATE OF CPU AT END OF ' EXECUTE 
IS SAME AS Ptm NORMAL I-FETCH 
EXCEPT • STAT 7 IS W 

13 SYL 2ND LEV* XE0 NEED TO KNOW) 
STAT 3 " INDICATES BNP$ (FOR 3-SYL) 

mm is, in r# 

ILC IS STILL' SET XO FOR EX INSTR 
IT SELF <• AND JAR POINTS JUST PAST 
EXECUTE* INSTR* ■ 



OX **»SB 



11/174^7 



:NACH 

mm 
p*l* 

; IJW CORP* 



caoso 



DATE' 0X/30WB 
LO0 ' m 



ixEorrE instructiw* • 

INVEfSl WOVE .v ' , ' 



mm*®* - 

(010000) 
<0*000!J 
10X00X0} 

(0100X1) 

RR*«X CONTROL 



HaAIXX*- 



(000100) 

mm 

(010101) 
(010110) 
(010U1) 

rr*rx fixed rr 



mm 
>fW5 



... m. 

mm 

OtUOO) 

(oitiosi 

mm 



*«yoii- 

(100000) 
(100001) 
(100100) 
(100101) 
RStSI FORWATS 



lit? 1 

iifi 

IW AC IB COUPS 



(110100) 

iiTr 

-0S01' 
(11X100) 
(1XXX0X) 
SS DECIMAL 



SHE 




•0C03C 
(XXX00O) 
(111001). 
INVERSE ■ WOVE 

(000000$ 
RR CONTROL 

. Ill* 

(000100) 

RR' FIXED PT 



fooxoooT^^ 

RR°^LmTIN<S PT 



ftT3X< 
(0X) " , 
PROORAW TRAP 



•SSE 



S«f X ^ 0E400 
VERSION ' C03 , . 



QA1I0*CGE— - 
(OOOOXX) 
SECOND LEVEL 
I— FETCH 



OOOOXX « 
E 1100 
A L*R 
"^L FI\I«MD*L5A 
L LS*L*LS 

c e*as*T30*S3 



0700 

I 



I 



El— XX -~€A 

A DDR TO Rt SET 
S3 ON BIT 30 
FDR LEFT RIGHT 
INDICATOR* 

OPMD TO L» 

SET 8S FOR LEFT* 



XX 
R*A 



0729 



Bfl(A»l)*B I 
R(31) S3 I 
E3— ** —EC 
A DDR TO SARt 
TEST R31 FOR 
LO ADDR BIT- 
ILLEGAL* 
TEST S3 FOR 
LEFT-RIGHT* 



LEFT 



00 



A LRL*D#8S 



0748 
I 



! ! 

C5— IX — CE 
L23*XG01 
CROSS L( 16-31 ) 
TO LEFT - SDR* 
BS PREV SET 1100* 



!1X) 
I— FETCH 



-CEE 



RIGHT 

01 

E 0011 
A L*M 
E*BS 



0749 



! 
I 

i 

G5— XX 
SET BS FOR 

RIGHT* 
tPND TO M. 



% XX ) 

TO STORE 
**ALF WORD 



-GEE 



WRONG SPECM* 

11 — 074B 
E 0110 I 

B E*l*'R I 

W*MB«F I** 



-OEE 



-QT310— 
(OX) 

PROGRAM TRAP 



Q5<~~ OX ~Q£ 
PROG TRAP 
CODE 6 

tSPECN) 



I I MACH C2050 I DATE 10/01/65 SHEET 1 QE555 I 

I 254760 12/21/64 | NAME I LOG 902 VERSION I 

I 255449 09/20/65 I MODE MAMUAL I 

I I P.M. 5364733 I - HALF-WORD STORE (STHU 

I I IBM CORP* SDD I t 



QAUCUCGE- 
UOOOXX) 
UOOIXX) 

(ioxoxx) 

U011XX) 
(UOOXX) 
SECOND LEVEL 
I-FETCH 



ADDR IS IN Li 
MB IS 2ER0t 



100XXX 0724 

CH e nn 

A L»R%A 
C E*BS*T30*S3 
I 

Al~ XX ~AA 



MH 

UOOXX ~~ 0730 

e 1111 

A L*R«A 
0— -0 GIi2«l 
D 0*LB 

C E»B5tT30*S3 



EX— 



LOAD HLFWD 



10 

I 

A -M23*R 
pi. PN«U*LSA 
R*L5 
IA+0/2*A 
SMIF 
I-FETCM 



074E 



XX — €A 



OX - 
L»MHL 



0709 



A6* 



PLUS 



-AF 



SH 



101 1XX — 072C 
E 1U1 
A L*R»A 
~D G2~l 
C E*8SfT30*53 



Jl— XX -«JA 



ADDR TO R»SAR# 
SET S3 ■ HALF- 

WD BIT OF 

ADDR* 
USE GX*G2«MB AS 

INDICATORS* 



! XX « 72B 

E 1H0 

j A «l*M 
Q~»B MD*F*U 

I B t»V 

I B WL*J 

I L F"J«MD*LSA 

j L LS*R+LS 

I C £*S47 

S R R(31) 
I ^X *"""*GB 

I ONES TO M 

j Rl TO J 

1 OPND 1 TO R« 




SPECN QK# 

OX — 
E 0010 
D D*L 

EU3HWFP 



LEFT HLFWD 



SUPPRESS MEMORY 

IF OFF BNDS 

AMD PREFETCH 
EXCPNQIA«30)*A 
EXCPN0(IA<30)#REF)"*B 



EXTENDED HLF-WD 
TO L*LS (OPND 
XU OVLAP I-FETCH 
U — 074F 



0705 j 
I i 

! s 

1*0 



R S3 I 
G3~ #X -~GC 
WORD FROM SDR 
TO L* 

SET WPM 
FOR ADD 



R MB«3 J200) 
£5««« «*»EE 
T*L T(0~3)*MD 
T(0-15)*M 
LCO-15) TO 
MU6-31). 



BRANCH UN SIGN* 
LOAD OR OTHER 



0-1 
| A 

1 L 

II 

! R 

j E6~ 



M»R 

PN*J*LSA 
R*LS 
IA+0/2»A 
SMIF 
I-FETCH 



•QT105- 



~AF£ 



(00«01tlO«ll) 
I-FETCH 



MINUS 



I I SUPPRESS MEMORY \ 
j ] IF OFF BNDS j 
■: I AND PREFETCH ] 
0—0 EXCPNaiA(30)*A \ 
BXtPnQ!,:.* "50 )*R£F)*B 



RIGHT HLFWD 



i 



I 



S 



10 — 222 
E 1111 
A R~L*M 
—A BCVC 
B E»WL 
B WfMMB 
D H0T1*ADDER 
C SETCRALG 
R (CAR) 

fZQmmm X$ EH 

SAVE CAR(O) V 

CAR(l) 
IF T«Ot 00*CR 
IF T<0t 01*CR 
SAME AS BLOCK CC 
ON QB500 



-QB500-~ 
<X0*X1) 
COMPARE 



HEHE 



I 



IX 



070B i 



i A LRL^MHL 



u 



AH 



0729 



1010XX 

E 1111 I 

A L^RtA I 

0~~C E*BS«T30*S3 |« 

I i t 



j 



ODD ADDRESS - 
SPECM VIOLATN 

IX — * 0707 
E 0110 

B E*WR 
-~B WWD9F 



) I 
P MB*3 (ZOO) i 
J5— ~JE 
L23+XG01 
T»L T(0~3)»MD 
T(0~15)*M 
L( 16-31) TO 
M< 16-31) VIA 
BUS (0-15) 



NOT LOAD 



00 



^B730^~H.FE 

(00) ADD 

(01) SUBTRACT 



Q74C 



-QB800— — 
(11) 

MULTIPLY 



-CFE 



L3— OX — LC 
CODE 6- SPECN» 



Nl~ 



XX — NA 



LH 



COMMON RTNE TO CHECK 
5PECN« SET UP HLF-WD 
EXTENDED BY SIGN IN 
L# Rl MOVED TO J 
BECAUSE ♦MHL CLOBBERS 
MD« 

G1«G2«MB USED TO REMEMBER 

OP AS FOLLOWS - 
MB GS1 GS2 



072 0 



1000XX 

e nn 

A L*R*A 

■D 3*MB 1 
C E->B$9T30»33 I 



I 

SI* 



I i 



3 


X 


X 


LH 


0 


0 


0 


AH 


0 


0 


i 


SH 


0 


1 


0 


CH 


0 


I 


i 


m 



A 

CHB 
I C 

! i 

R G1<0 
L6~ 



M23»L 
W»G 

0*LSGN$ 



!*— 0 PLUS 
I 



| oi — 074D 

I I I 
! A M*L I 
W*G 

C l»LSGNS ! 
I I 
R GX<0 G2<0 I 
a6«— »W« ~QF 

L SIGN STAT 

FOR Hw MILT 



SIGN DETERMINES WHETHER 
M* OR M23^ IS USED 
M* GATES M ONTO BUS 
M23» GATES M(X6-3l) ONLY 

*(0~15) CONTAINS ONES 
CORRECT IF NEGATIVE 



MINUS 



XX 



-SA 



! I MACH C2050 

1 254760 12/21/64 1 NAME 

i 254763 01/13/65 I MODE MANUAL 

I 254770 02/01/6$ I P # N. 5364734 

j 255449 09/20/65 { IBM CORP« SOD 



DATE 10/01/65 
LOG 902 



-0T310~— 
(OX) 

PROG TRAP 



SHEET 1 0E580 

VERSION 



HALFWQRD OPS - COMMON SETUP 
LH CH AH SH MH» 



QAHOtCGE — 

UUOXX5 

FROM 2MD LEVEL 

I-fETCH 



lliOXX ?38 

E 0110 { 
A R*M * | 
«*#A SL4+F |#~ 

B E*WL 

B WL*MD j 
0 0*MB | 
L W52*LSA | 
L LHS I 
C R!0)*RSGNS t 
Ai«^ XX ~~*AA 

BINARY TQ M 
HIGH BINARY TO F 
DATA ADR TO WS2 
SET M D « 6 



XX «*»• 
E OOOO 
A R*L 
-B MDcF»U 
B U*W 
Wt*Gl 
3H.B 

EU3!*WFN 

RSGM5 



80E 



B 
D 

C 
R 

A2*- 



I 

I I 



\ A 

! A 

I D 

I t 

I R 



11 



BINARY DATA 
SET Gl » 6 
BR ON MEG SIGN 
FOR RECQMPL 



DATA NEGATIVE HO HEX DIG NOT ZERO 

Xi ~~ 335 OX — 830 j 

I 1*1 
A R>R 

-A DDCO F*SL1^F 
D L8H, 



A n-*M 
-A SL4*F 
D HQTHADDER 



Gl— 



i 

XO ~GA 



BIMARY COMPL TO M 
HIGH BINARY TO F 



XO — 834 
*€ 0011 I*— i 

A 0+R i 
~B MMB*V i 

B VL^WL 

L WStE+LSA 

L R»LS 

R F*0 

Ll~ *X —LA 



ZEROS TO R* WS3 

M HIGH DIGIT TO MVR 

FOR NEXT BRANCH 
IF FIRST BINARY 
DIGIT*0 SELECT 
ME XT BIN DIGIT 



PROGRAM NOTES 

HEX DATA IN M REG 
DECIMAL RESULTS IN R 
DECIMAL CORRECTION IN L 
LB USED TO COUNT 4 BITS 

PER HEX DIGIT 
PROCESS FROM HO HEX TQ LO 
SKIP HIGH ORDER ZERO HEX 

DIGITS® USE MD TO COUNT 

HEX' DIGITS IN M MOT YET TESTED 
Gl USED TO INDICATE NUMBER OF 

HEX DIGITS IN M NOT PROCESSED 
*<HEN EEC, CONVERSION OFLOS L 

AND R MUST BE RESTORED 

WS2 - MAIN STORAGE DATA ADR 
W53 « CGRRM FOR MO OEC WORD 
WS5 r LAST CORRN £cFQRE OFt.0 
W513- U.AST F'ARTIP'-. "DECIMAL 
DBL BEFORE C^\,G 



G2~~ 10 --G8 

SI TO ADDER 
CARRY(0)*SI 
DEC DBL CORRN*L 
ENTER BINARY BIT 
PARTIAL DEC DBL*R 



HO HEX DIGIT«ZERO 



IX 
A M*M 



332 I 
1*0 



SL4*F ! 
B MMB*V t 

B yR*WR I 

d Gi~a } 

D M.D-l I 
R WL«0 I 
L2~ *0 —LB 
SHIFT M LEFT 4 
SPILL HO HEX 

DIGIT TO F 
NEXT HEX DIGIT TO 
MVR FOR ZERO TEST 
BRANCH ON 1ST HEX 
DIGIT * ZERO 



0*H 
BCO 
3*MB 
WS2H.5A 
L5*R*LS 

RSGNS 



807 



•ACD 



~GE802«— 
<X0«X1) 
STORE DECIMAL 
RESULT 



AB J j 



A3~~ 



X* 



«AC 



I DATA ALL ZEROS 



TO L 1 1 



LEFT HEX DIGIT NEXT 

oi — — ao9 

B MMB*V 
B VL*WL 
B WL*MD 
f~*D Gl-l 



OX 



831 



SAVE. CARRY FROM 0 

(RESET CSTAT) 
DATA ADR TO R 



B MD*F*U ! 
B *+WR ! 

n wr*f i 



CONVERT A 
XO - 
HE 0101 



.EFT DIGIT! 
- 813 | 



C4- 



OX —CD 



LOAD BINARY HALF 

BYTE INTO MD 
REMAINING BINARY 

BYTES LEFT JUSTIFIED 

IN M 



00 



S04 




R4R 

DDCO F*SLl*Fj 
LB-1 



10 **~GC 

SI TO ADDER 
CARRY(0)*S1 
DEC DBL CQRRN-H, 
ENTER BINARY BIT 
PARTIAL DEC DBL»R 




CONVERT 1ST HEX DIG i 4 

io — aoA i 



BITS COMPl£" 
01 — 



R4L*R j 
DDCO F»$L1*F! 
LB-1 5 
Afl£B«0)*A 5 
MD3»Q lB«0 I 



Sl^ADDER I 
CARRY (0) *5l \ 
DEC DBL CQRRN*L ! 
CORRECT LAST DEC DBL! 
NEW DEC DBL TO R S 



0»H 
31-1 



ED 
80D 



C6~~ 



XO — CF 



NEXT BINARY DIGIT 
TO F 



END 



IX 



833 



I 

R GKO 
G5~ 



*X ~~GE 



AQ(B- 
F«0 



A R4L*R i i 

! A DDCO F*SL1»F!*— ^ 
! D LB-1 j 
0~L WS*E*L5A | 
I L L*LS I 
I R LB*0 i 

| C7~ X* — CG 
\ 

\ ENTER BINARY BIT 
S S1*ADDER 
I CARRY { 0)*S1 
! DEC DBL C0RRN->L*WS5 
! ENTER BINARY BIT 
5 CORRECT LAST DEC DBL 
NEW DEC DBL TO R 
BR OUT WHEN LAST BIN 
BIT IN F USED 



4 BITS COMPLETED 
• S19 



SI \ 

;1t£ «**»0F 



CLEAR H 

BR IF WD COMPLETE 



2HECK BOTH F AND Si 
FOR OVERFLOW 



XI 
1101 
B MMB*V 
B VR*WR 
B WR*F 
D Gl~l 
D MB41 
u wS*E>LSA 
L R*L5 I 
G?~ 00 ~GG 
SAVE PARTIAL DEC 

DBL IN WS 13 
RIGHT HALF BYTE 
FROM M TO F 



! i 
I A 

n 

I i 



01 



805 



R^R 

DDCO F*SL1*F 
LB-1 



RT HEX DIGIT 
11 ' 



NEXT 
BOB 



COKVERT A RT DIGIT 



00 



aoc 



Gi-1 



L3~ 



00 *HlC 



i ! 



L4~ 



SL4*F 



00 



S1>ADDER 
CARRY(0)*S1 
DEC DBL CORRN^L 
ENTER BIN BIT 
PARTIAL DEC DBL+R 



SHIFT M LEFT 4 1 
SPILL NEXT HEX i 
DIGIT TO F I 
REMAINING HEX DIGS! 
LEFT JUSTIFIED IN I 
M ! 



-OFF 



ZERO CHECK 
10 — 



806 



I A 

0~— -A 
B 

B 
D 
D 
R 



SL4*F !- 
MMB^V I 
VR*WR 1 



I A R4t*R 

0~* «A DDCO F*SL1*F 
! B ,MMB*V 

B VL*WL 

B WL*MD 

D LB-1 

R 8Q(A*1)*B 

R SI LB«0 
\^ ijojt "'L E- 



S1»ADDER 

CARRY(0)*S1 

DEC DBL CORRN^L 

CORR LAST PARTIAL DEC DBL 

NEW PART DEC DBL*R 

ENTER BIN BIT FROM F 

LEFT HEX DIG FROM M * MD 



OVERFLOW 

11 — 80F 
E 0101 
D MB-1 

WS»6*LSA 
L LS*L-*LS 



OVERFLOW 

00 — - 
E 0101 
D MB-1 
0-— H. WS«E*LSA 
L LS+L»LS 



800 



i 
I 

L8— 



-QE802— 
(10) 
ADD FINAL 
CORRECTION A". ! 
STORE RESULT 



XX LH 



LOW CORRN * L 



OVERFLOW 

11 

E 0101 

D MB-1 
~L WS^EKSA 

L LS*L*LS 



803 I 



Gl-1 

WR*0 MD«0 I 
a3— ~QC 
M LEFT 4 TO m 
HO HEX DIG TO F 
NEXT HEX DIG TO 

MVR FOR ZERO TEST 
BRANCH ON PIGITaO 
AND WD COMPLETE 



05— XX OE 
LOW CORRN TO l 



I 

Q8— 



XX — -OH 



.OW CORRN TO L 



XX 

1101 

0*M 

M^B^V 
VR*wR 
WR*F 

3*LB 

WS«E*LSA 

ls*r*ls 

S03»iE 



808 

I 



"OE802 Q IE 

(X0 5 

DOUBLE DECIMAL 



Q9 — 



XO — - QI 



LOW PARTIAL DEC DBL 
TO R 

NEXT HEX DIGIT TO F 



254760 12/21/64 I MACH C2050 

254770 01/19/65 I NAME 

254772 02/23/65 1 MODE MANUAL 

255443 07/15/65 1 P.Nt 5364735 

255449 09/20/65 I IBM CORP. SDD 



DATE 

LOG 



10/01/65 
902 



SHEET 
VERSION 



1 QE800 



CONVERT TO DECIMAL 
FROM BINARY* CVD 



QE800«QI£— 

<X0) DOUBLE 
CONVERSION 



XO — 081A 
-*E OOOO 
^ A R4L*R 
—A DDCO F*SL1*Q 
L WS$E*LSA 
L L*LS 
! 

XX ~AA 



XX -~ 
00X1 

WS*E*LSA 
LS*L*LS 



QE800#GFF 
(10) SINGLE 
CONVERSION 



Al~ 
SX*ADDER 
CARRV;C:.*SI 
DEC DBL CORRAL 
DBL DEC WD LOOP 
ENTER BINARY BIT 
FORM CO DEC IN R* 
CORRN TO L AND WSO 
STORE HO BIT IN a 



A2~- 



0820 



I 



XX - 
0011 
M4t*M 

DDCO a*5L! 

WS*E*LSA 

L*LS 



0825 



XX MMM 

E 0000 
LB-1 

WS*E*L$A 
LS*L*LS 



082E 



XX — AB 



-AC 



DBL DEC WD LOOP 
FETCH HQ WD CORRN 
TO L FROM WS3 



A3*— XX 
Si*ADDER 
CARRY(0)*Si 
DEC DBL CORRN*L 
ENTER Q BIT* FORM 
HO DEC WD IN M 
STORE HO CORRN WS3 



D 
«L 
L 
R 
R 

A4~~ 



LB«0 
X* —AD 



FETCH HO CORRN 
IN WSCw 
DECR LB* 
BR ON R/L STAT 
RIGHT {QH) AND 
LB*0* 




XI 

A M*H 
1 



A5~~ 



081 B 



10 



802 



10 — AE 



XFER UNCORRECTED 
HO DECIMAL TO H* 



R 

A7- 



R+L*M 

BCO SL4*F 
3*MB 
WS2*LSA 
L$*R*lS 

RSGNS 
X* —AG 



XO 
1100 
R*R«AD 



836 



SAVE CAR ^ROM 0 
ADD FINAL CORRN 
TO LO DECIMAL 
AND SHIFT RESULTS 
LEFT 4 TO M AND F 
SET MB«3 

BR DM R SIGN STAT 



B VL*WL 



MMB*V 
E*WR 



B W*MMB*E?» 
I 

A8«- XX «~~AH 
CHK DBL WD ADR 
ALTER EMIT IF 
ASCII BIT ON 

ADR OF HO DEC TO 

5AR? 

INSERT PLUS 
SIGN IN M REG 



E 
A 
~8 
B 

B 
I 



837 



XI ~ 
1101 
R*R*AD 

MMB*V 
VL*WL E*WR 
W*MMB(E?) 



XX — 
E 0011 
L WStE^LSA 
LS*L+LS 



SIC 



XX —EH 
CHK DBL WD ADR 
ALTER EMIT IF 
ASCII BIT ON 
ADR OF HO DEC TO 
SAR« TEST FOR DBL 
ADR« INSERT MINUS 
SIGN IN M REG 



XX -HE 



FETCH HO DEC 
CORRN (WS3) TO L 



i 



XX 



345 



A H4t»D 

F*SL4*F 
D CSTAWDDER 



XX ~~JF 



ADD FINAL CORRN TO 
HO DEC* SHIFT SUM 

enter f» results 

TO SDR 



XX — 

I 

A R+4*R*A 

i 

! 
I 

J7~~ 



0646 
i 



•XX ~JG 



ADR OF LO DEC 
TO SAR 



XX 
A M*D 



0847 
I*. 



-auoo — 

(IX) 
I-FETCH 



-UHE 



LO DEC TO SDR 



$E800«ACD< 
(X0«X1) 
ZERO DATA 



254770 
255443 
255449 



02/01/65 
07/13/65 
09/20/65 



MACH 
NAME 
MODE 
P.N» 

IBM CORP. 



C2050 

MANUAL 

5364736 

SDO 



DATE 10/01/65 
LOG 902 

CONVERT TO DECIMAL 
FROM BINARY t CVD 



SHEET 1 
VERSION 



QE802 I 



QAHOtCGE— ■ 
(U11XX) 
SECOND LEVEL 
I -FETCH 



1U1XX > 

I 

A L*R^AP 
-^L WS1KSA 
L LH.S 



073C 
I 



f 
! 
I 

-AB 



,42**^ XX 
CHK DSL WD ADR 
ADR OF HO DEC WD 

5AR, OP2 ADR TG WSI 



XX — 
0011 
0*M 
DCO 

WS«E*LSA 
L*LS 



0848 



XX —AC 



A3— 
S1»ADDER 
CARRYiO^Si 
DEC ADD CORRN*L 
ZERO M* GEN SIXES 
TO Lt L TO WSL% 



XX — > 
0011 
D*M 

WSoE*LSA 
LS*R*LS 



0849 



A4- 



XX 



I 

-AD 



HO DEC WD TO H* 
SIXES ( WS3 ) TO R« 



XX - 

s 

A H+L*T 

-A DCO 
I 



034A 



«AE 



A5«~» XX 
S1»ADDER 
CARRY SO;*?., 
DEC ADD CORRNH 

DEC ADD OF HO DEC 

AND SIXES 



XX 



084B 



R~L*T 

H0T1*ADDER 

wsi*lsa 
ls*r*ls 



I*- 



A6~ 



XX 



«AF 



sub corrn from 
sixes for valid 
dec check* fetch 

QP2 ADR TO R» 



XX — 

e an 

A R+4*RtA 
-B £*WL 
B WL*Gi 

R 

A7~~ 



084C 



T^O 



-AG 



0P2 ADR H "C SAR 
SET Gl TO XX ii ^'OR 
MB*0 TEST LATER 
BR OM ADDER LATCH 
ZERO FOR VALID DEC 



XI 

I 

A H*H 

-A 



0839 



SR4+F 



XX —AH 



SHIF^ h RIGHT 4 
TG H A\D F. 



XO — 

E 0111 
B 

r-B W*MD*F 
I i 

! ! 

I A9— 



- 0838 
E+WR | 



-A IE 



OX — AI 



GO TO INVALID 
DATA TRAP© 



-QT310— 
(OX) 
PROGRAM tRAP 



XX — 084 D 
S E 0011 ! 
i D D+R S 
* — ~D 3*LB 

L WS*E*LSA ! 
L LS*L*LS I 
R T«0 | 

El— X* ~€A 

tO DEC WD TO R* 
SIXES (WS3) T Q ^* 
SET LB w 3© 
BR ON ADDER LATCH 
ZEROL 4 HO DEC ZERO) 



XO — 083A 
E 0010 
A R*R 
0*~A F*SR4 
} B R3*U 
I D 0*MB 
I L WS«E»LSA 
I L RH.S 
i C URSGIMS 
j XX — €B 

! IF -tlfLSGMfiRSGKJ 
I IF NOT SGN* TRAP 
R 5R4 TO REMOVE 

SGN AND RT ALIGN 
STORE R » WS2 
SET L SIGN STAT 
0»M8 FOR DBL DEC 



! DOUBLE WD 
ROUTINE 

OX « 



! e 

I A 

0 
D 
L 
L 
Ul 



0840 

0100 I 
R-L+R I 

BCO I 
H0T1*ADDER 
3»MB 
WS*E*LSA ? 
lS^IS | 
OX —\)A 



XX — 
0011 
R+i>T 
DCO 

W59E*LSA 
LS*R*LS 



084E 
I 



•■'""■"•EC 



E3— XX 
S1»ADDER 
CARRY(0)*S1 
DEC ADD CORRAL 
FETCH SIXES WS3) 
ADD SIXES TO LOW 
DECIMAL AND FORM 
CORRECTION IN L 
FOR VALID DEC CKt 



XX — 084F 
I 1 
A R<-L*T I 
-D HOTl^ADDER |*- 
L WS2*LSA I 
L LS*R*LS I 
I I 
E4— • XX — €D 



SUB CORRN FROM 
SIXES* FETCH LOW 
DEC TO R FROM WS2 



XX 
H*L 



0850 XO — 

I E 0111 
I B 

SL1*Q j*~0— B W*MDvF 



- 083C 
I 

E*WR 



R 

E5« 



j 

7*0 i 

x* ™ee 



! 



E6— 



J 



OX «~€F 



SHIFT H Li "0 w 
TQ FORM 1ST COP" 
BR ON T«0 IF 
VALID DEC 



GO tq XMV DAT 
INTERRUPT* 



XI ~- 083D 
E 0100 ! 

a l+t ; 

DHH |tf 
L WS*E*LSA ) 
L L*LS i 
C S4?»^E S 
E7— XX —EG 
DEC HAlF C0RRN>l 
LO CORRN*AUX 
PASS L THRU AD3ER 
TO FORM FIRST 
CORRN ^OR HO DEC 
IN L© I TO WS4» 
SET R/L STAT 5 TO 
RIGHT ;OFF}» 



E 
A 
-A 

C 
! 
I 

E8«~ 



XX « 
0000 
R*L 

sli*q 

E(13)»WFN 



085| 



XX 

I 

A L*T 

DHL 
! 



0852 



n 



XX —EH 



SHIFT R LI TO L 
TO FORM 1ST CORRN 
SET MVR FN TO 
CRQ55~GATE# 



HO DEC WD IN H# 
LO PEC WD IN R# 
CONVERT BY SUCCESSIVE 
SHIFTS RIGHT BY 1 BIT* 
SPILL TO F* GEN CORRN 
TO L# 



SAVE CAR FROM 0 
~ETCH HO CORR 
(WS4) TO L* 
SUB LOW CORRN FROM 
LO DEC* MB 
CONTROLS BINARY 
DATA INTO M REG» 



SINGLE WD 
ROUTINE 

, ix 0842 

i 

A 

D 
I 

Nl~~ 10 ~NA 
DEC HALF CORRN* L 
AUX C0RRN»L(0-3) 
HALVE DEC IN Rt 



RHL*R 

DHL SR1*F 
H0T1 LADDER 
LB-1 



XI — 083B 
0010 
R*R 

F4SR4 

B R3*U 

D 3*MB 

L WSfE+LSA 

L R*LS 

C L*RSGNS 

(jg***"' XX ****JB 
IF -,!>LSGNnRSGN 
IF NOT SGN* TRAP 
R SR4 TO REMOVE 

SGN AND RT ALIGN 
STORE R * WS2 
SET L SIGN STAT 
0*MB FOR DBL DEC 



01 081D 

E 0100 
) ! A RH_*R 

ifA O A BCO 

B MD«F*U 
B VL*WL 
B W*MMB 
D H0T1»ADDER 
L WStE^LSA 
L LS*L*LS 
C S47QE 

J3-— ■ OX ~JC 
SAVE CAR FROM 0 
1*R/L STAT 5 CLEFT) 
F*M RT HALF BYTE 
SUB CORRN FROM R 
HO CORRN ♦ L FROM 
W54 



11 — OBlF 
E 0100 ! 
A R-L*R 1 

BCO !#Q' 
8 MD«F4IJ MMB*Vl I 
B ?*WL VR*WR 
B W*MMB I I 

D HOU*ADDER \ \ 
D MB~1 
L WS^E^LSA 
L LS*L*LS 
C S4?#^E 
R G1MBZ 

J4— *X ~UD 
SAVE CAR FROM 0 
{Gi*0)a<MB«0)*A 
0(RIGHT)*STAT 5 
SUB CORRN FROM R 
HO CORRN «WS4)*L 



OX — 0841 
1 I 
A H-OH | 

-D CSTAT»ADDER 



XO 



J5~ 



XX — JE 



XX — 0853 
E 0100 i I 

H*H ! A R*R 

DHH SRl*a — 0— — A DHL 0>SR1*F 
D 
R 
R 



083E 



SUB CORRN FROM H« 



08 IE 
I 



10 « 
0100 
R-L*R 

BCO ! 
D H0T1*ADDER " 
L WStE*L5A 
L LS^LKS 
N3— OX — NC 
SAVE CAR FROM 0 
SUB CORR FROM LO 
DEC IN R# FETCH 
HO CORR WS4 TO L» 



A 

L WStE*LSA 
L L*LS | 
R T*0 j 

J6~ X* ~JF 
DEC HALF CORRN*L 
LO C0RRN4AUX 
HALVE HO DEC IN H 
STORE L TO WS4« 



LB-X 

AQi B«0)>A 
S5 m LB»0 
J7— — JG 

DEC HALF CORRN*L 
AUX CORRN*L TO-3) 
HALVE LO DEC IN R 
R/L STAT 5 ON FOR 
LEFT 



IX — 0843 

\ 

A M*L 

-L FNf MD*LSA \*-~* 
L L*LS 
I 

R LSGWS 0 
N5— *0 ~NE 



XFER BINARY IN M 
TO L AND STORE IN 
GEN REG PER MD* 
BR ON L SIGN STAT 



I 



XI 



083F 



i , 

I A R*R ! 
*~A DHL a*SRl*F 1 4** 
LB-1 ! 
AQ(B»0)*A I 
S5 LB»0 I 
N7— -HViG 
DEC HALF CORRNK 
AUX CORRN»L<0-3) 
HALVE LO DEC IN R 
R/L STAT 5 ON FOR 
LEFT 



R M3»3 j 

DEC HALF C3RRN+L 
AUX CORRAL i 0-3) 
PASS L THRU ADDER 
TO FORM FIRST CORRN 
FOR LO DEC IN Lt 
BR ON MBs3 FOR 
SINGLE DEC WORD • 



-QE901~ 
(OlslO.ll) 



■"■NGE 



"QE901-— 

(OOtlO) 



-NEE 



IF INITIAL, HO 7 DEC 
DIGITS EQUAL ZERO OP 
WHEN CONTENTS OF H 
GOES TO ZERO ENTER 

SINGLE ROUTINt't 



-QE901- 

(10) 



«NAF 



a - 

9 



I 254770 
I 255443 
I 255449 
I 



02/01/65 
07/15/65 



I MACH 
I NAME 
MODE 



09/20/65 I P#N* 

I IBM CORPt 



C2050 

MANUAL 

5364737 

SDD 



I DATE 
I LOG 



10/01/65 
902 



SHEET 
VERSION 



CONVERT TO BINARY (CVB) 
FROM DECIMAL 



1 QE900 | 



QE900*NGE~ 



GE900#NEE~ 
< 00,10) 



QE9Q0.NAF~ 

UO) 



01 • 
E 0100 

a r-l*r 

~A DHL 3R1»F 
B MD9F*U 
B VL*WL 
B W*MMB 

HOTX LADDER 
LB~1 
S47QE 
AQ(B*1)*A 
0 T*0 



0821 



Al~ 



— AA 



DEC HALF CORRN-H. 
AUX CORRNH.tO-3) 
1 (LEFT)*5TAT 5 
F ♦ H RT HALF BYTE 
HALVE DEC IM R 



00 



0824 



R"""L^R 

DHL SR1*F 

MQTl+ADDER 

LB-1 

Afl<B*0)*A 
S5 LB»0 



A2-— 



m — A0 



DEC HALF CORRNtL 
AUX CORRAL (0-3) 
HALVE DEC IN R 



10 — 0822 I 
i I I 

A R-L*R I I 

«A DHL SR1*F 
D H0T1+ADDER 
<*D LB-1 
R AQ(B*G)*A I 
S5 LB»0 



R 

El- 



I 

** — €A 



DEC HALF CORRAL 
AUX CORRAL (0-3) 
HALVE DEC IN R 
R/L STAT 5 ON FOR 
LEFT 



11 

E 0100 
A 

-A DHL 5R1*F 

B MDtF*U MMB>V| 

B ?*WL VR*WR I 

B W*MM8 i 

D HQT1*ADDER I 

D LB«MB-1 I 

C S47#iE I 

R Aff(B«l)*A 

R G1MB2 T«0 



Jl- 



I 



DEC HALF CQRRNH, 
AUX CORRN+L (0-3) 
(G1*0)Q(MB»0)*A 



HALVE DEC IN R* 
0( RIGHT) * STAT 5 
P * M LEFT HALF 

BYTE 
Gl IS NON-ZERO 
T»0 IF CONVERSION 

COMPLETE 



10 — 

I 

A M*L 

L PN«MD*LSA 
L L^LS 
1 

R LSGNS 0 
E2— #0 — €B 

XFER BINARY IN M 
TO Lt L TO GR PER 
MDt BR ON L SIGN 
STAT* 




00 — 0828 
E 1001 

B E*WR 
-B W+MDtF 



A3«*«» OX —AC 
BINARY CONVERSION 
OVERFLOWED o GO TO 
INTERRUPT^ 



0829 



01 
1110 

WStEKSA 
LS*L*LS 
IA+0/2+A 
E*S47 
I-FETCH 

EXCPNQIA(30)#A 
EXCPNaUA(30)*REF)*B 
1ST WD OF X— FETCH 




R COMPLETELY 
CONVERTED 



082? 



J2~ 



M*L 

FN*MD*LSA 
LH.5 | 
8Q(A*1)»B 
LSGNS (200) I 



082F 
I 
I 



XFER BINARY IN M 
TO Lt L TO GR PER 
MDt BR ON L SIGN 
STAT AND SIGN BIT 
0 IN ADDER LATCH* 



L 
L 
R 
R 

J3 



H0T1*ADDER 
FN«MD*LSA 
L»LS 

BQ(A»1)*B 
TZ*BS (200) 

— JC 



LATCH ZERO TEST 
PER BYTE STATS 
COMPLEMENT BINARY 
IN L* L TO GR PER 
MDt BR ON ADDER 
LATCHES ZERO AND 
LATCH BIT 2ER0 
(SIGN)* 



01 < 
E 1001 
B E*WR 
-B W*MD*F 



082D 



10 — 082A 
E 1001 I 
A -L*L 

E*WR 

B W*MDiP 
D HOT 1 LADDER 
L FN*MD*LSA 
L L*LS 
A4— OX —AD 
BINARY CONVERSION 
OVERFLOWED. 
COMPL CONVERSION 
IN Lt STORE L TO 
GR PER MD* GO TO 
OFLO INTERRUPT* 



11 — - 

E 1110 

L W5*E*LSA 
rL LS*L*LS 

S IA+0/2+A 

C E*547 

R I-FETCH 

E4— jjojt m-^ED 
EXCPNGIA(30)*A 
EXCPNn(IA{30)#REF)*B 

1ST CYCLE OF 
I-FETCH 




082C 



00 
1110 

WSfE^LSA | 
LSH.*LS 
IA+0/2*A | 
£*S47 | 
R I— FETCH I 
J4— — JD 

EXCPNQIA(30)*A 
EXCPNQ(IA(30)*REF)»B 

1ST CYaE OF 
I-FETCH 



»aTiio » ■ C CF 

(OOiOlUOUl) 
I— FETCH 



-ACF 



-QT310— 
(OX) 
PROGRAM TRAP 



N3— 



OX — NC 



GO TO OVERFLOW 
INTERRUPT* 



254760 
254770 
255449 



12/21/64 I 
02/01/65 ! 

09/20/65 



MACM 
NAME 
MODE 
P*N* 

IBM CQRP* 



C2050 

MANUAL 

5364738 

SDD 



DATE 10/01/65 
LOG 902 



SHEET 7 1 QE901 ! 
VERSION I 



CONVERT TO BINARY (CVB) 
FROM DECIMAL 



(OOOOXX* 
iXQOOXX) 
SECOND LEVEL 
I -FETCH 



QPND 1 IS IN L# 
STORAGE CYCLE 
{OPND 2) HAS 
BEEN INITIATEDt 



jOOOXX 

D D*L 

FN«M)n.SA 
L LH.S 
I 



02 A 1 



f 



Al~ 
LOAD 
OPND 2 FROM 
SDR TO LtLS 
(OPND 1 ADDR) • 




0281 



I 

Jl~ 
STORE 
OPND I TO SDR 



IX — JA 



•OTXOO 

(IX) 
I-FETCH 



-AAE 



I MACH C2050 I DATE 10/01/65 SHEET 1 QF100 

254760 12/21/64 | NAHE LOG 902 VERSION 

255449 09/20/65 MODE MANUAL I 

I PmHm < 5364739 \ f^IXED POINT RX LOAD/ STORE* 

I I EM CORP* SDD I ' „ - 



QU15.CHD- 

I-FETCH 

(OOlOOOf 

(OO1O01) 

RR LONG 

(OOUOO) 

(001101) 

RR SHORT 

(011000) 

(oiiooi) 

(011010) 
(OUOU) 
RX LONG 
(011100) 
(011101) 
(011110) 
(011111) 
RX SHORT 



011100 

E 1111 
A M23+L+R 
0— *L FNtJ+LSA 
L LS+L*LS 
E*S03 



011C 



C 
I 

Al- 



XX — AA 



SHORT OPND WITH 
B NOT OtX NOT 0 
DO B+D TO R *0R 
ADDRESS CALC 
FETCH X TO L 
SET STATS 




011101 — 
E 1111 
A M23*R 

FNt J4L5A 
L LS*L*LS 
C E*S03 
I 



011D 



El— 



XX — EA 



SHORT OPND WITH 
B=Ot X NOT 0 
TAKE D TO R FOR 
ADDRESS CALC 
FETCH X TO L 
SET STATS 



Q£4 00. CHE- 
EXECUTE 
(001000) 
(001001) 
(001100) 
(001101) 
(011000) 
(011001) 
(011010) 
C01L011) 
(011100) 
(011101) 
(011110) 
(011111) 



011000 

E 1110 
A M23+L4R 
-i. FNt J»LSA 
L LS+L*LS 
C E*S03 



0118 



A3- 



XX — AC 



LONG OPERAND RX 
B NOT OtX NOT 0 
&+D TO R FOR 
ADR CALC 
FETCH X TO L 
SET STATS 



011001 

E 1110 
A M23*R 
-L FNt J+LSA 
L LS*L*LS 
C E*S03 



0119 



E3~ 



XX ~EC 



LONG OPERAND RX 
B=Ot X NOT 0 
D TO R 

FETCH X TO L 
SET STATS 



XX 0341 

E 0000 
A R+L*RtAW 

B WR*F 

L WSl^LSA 
L R*LS 
R MD*FP 
A 5— jjtx — -AE 
CHECK WORD ADR 
SHQRTtX NOT 0 
(R-fD)+X TO Rt 
SARtWSl 
ZEROS TO F 



0344 



XX 

0000 

R+L*Rt AD 
WR*F 
WSl^LSA 
R-H.S 
MD=FP 

*X —EE 



L 
L 
R 

E5— 
CHK DBL WD ADR 
LONGtX NOT 0 
<B+D)+X TO Rt 
SARtWSl 
ZEROS TO F 



aT115 # GDE- 

I-FETCH 

RR OFF BOUNDS 

(001000) 

C001100) 



011110 011E 

E 1111 

A M234i>RtAW 

WS1H.SA o 
L R+LS 
C E*S03 
R MD»FP 

Jl — #X — JA 
CHECK WORD ADR 
SHORT OPND WITH 
B NOT 0* X»0 
DO B+D TO R 
SARtSAVE IN WS1 
SET STATS 



QE400.LGE 

EXCUTE 

RR OFF BOUNDS 

(001000) 
t 001100) 



011111 011F 

E 1111 

A M23+R«AW 
— L WS1*LSA 

L R*LS 

C E*503 

R MDsFP 

N1-— *X — NA 
CHECK WORD ADR 
SHORT OPND WITH 
B=Ot X»0 
D TO RtSARtWSl 
SET STATS 



011010 — 011A 

E 1110 

A M23+L*RtAD 
—4. WS1»LSA 

L R-H.S 

C E»S03 

R MD-FP 

J 3— *X — JC 
CHK DBL WD ADR 
LONG OPERAND RX 
B NOT 0tX=0 
B+D TO RtSARtLS 
SET STATS 



011011 OUB 

E 1110 

A M23*RtAD 
~L WSULSA 

L R*LS 

C E*S03 

R MD*FP 

N3 — *X — -NC 
CHK DBL WD ADR 
LONG OPERAND RX 
B«0t X*0 
D TO RtSARtWSl 
SET STATS 



001100 
E 0010 
A -1*R 
■—A BCO SR4*F 

D HQT1*ADDER 
t#L FNtJ*LSA 
L LS*L*LS 
C E(23)*LSFN 
M(47>*R0AR 



010C 



*1 



J5— -***#XX — JE 

SHORT t B NOT Ot 

X NOT 0 
QPND2 TO L 
SET CSTAT( SHORT) 
ZEROS TO F 
SET LSFN TO FP 



001000 
0010 
0*R 

BCO SR4*F 
FNtJ+LSA 
LS*L*LS 
E( 23) ♦LSFN 
M( 47) ♦ROAR 



0108 



05 ***»XX — QE 

SAVE CAR FROM 0 
LONGtB NOT 0 
X NOT 0 
0PND2 TO L 
ZEROS TO F 
LS TO FL PT 



G 
0 

0 



IX ■ 
E 0010 
A 0*M 
— B E*WL 

L'FNtMD*LSA 
L LS+R*LS 
C E(23)*LSFN 
R M(47)*R0AR 
A6 M fl n fl rj » » XX - 
0PND1 TO R 
LS TO FL PT 
ZEROS TO M 



09C7 



•AF 



OX • 
E 0110 
B E*WR 
-B W*MDtF 



09C5 



E6 — 



OX — EF 



0PND1 ADR ODD 
GO INTERRUPT 



001101 



010D 



0010 
-1*R 

BCO SR4+F 
H0T1*ADDER 
FNt J*LSA 
LS-H-+LS 
E(23)*LSFN 
M(47)*R0AR 

OCX — JF 



SHORT t B-OtX NOT 0 
OPND 2 TO L 
SET LSFN TO FL PT 
SET CSTAT( SHORT) 
ZEROS TO F 



001001 
E 0010 
A 0*R 

«* BCO 5R4*F 
L FNtJ+LSA 
L LS*L*LS 
E(23)*USFN 
M(47)*R0AR 



0109 



0 6 —OF 

SAVE CAR FROM 0 
LONGtBaOtX NOT 0 
0PND2 TO L 
LS TO FL PT 
ZEROS TO F 



-QG300 — — 
(OOOOXX) 
STDtSTE 
(1000XX) 
LDtLE 



-AFE 



-OMill 

(0001XX) 
(0010XX) 
(0011XX) 
(0100XX) 
(0101XX) 
(0110XX) 
(OlilXX) 
INVALID OPS 



AFE 



-QG400— 
(1001XX) 
CDtCE 
(1010XX) 
ADtAE 
(1011XX) 
SDtSE 
(1U0XX) 
AWtAU 
(1111XX) 
SWtSU 



-AFE 



-OG700— 
(1100XX) 
MDtME 



-AFE 



-QG500— 
(1101XX) 
DDtDE 



-AFE 



-EFE 



-QT310— 
(OX) 

PROGRAM TRAP 



-QG100- 



( OOOOXX) 

LPDRtLPER 

(0001XX) 

LNDRtLNER 

(0010XX) 

LTDRtLTER 

(0011XX) 

LCDRtLCER 



-JEE 



■QG200 
(0100XX) 
HOP t HER 



-JEE 



-0M112- 



-JEE 



(0101XX) 
(0110XX) 
(0111XX) 
INVALID OPS 

-QG300— JEE 

( 1000XX ) 
LDRtLER 



-OG400— 

(1001XX) 
CDRtCEP 
(1010XX) 
ADRtAER 
(1011XX) 
SDRtSER 
(1110XX) 
AWRtAUR 
(1111XX) 
SWRtSUR 
-QG700— — 
(1100XX) 
MDRtMER 



-JEE 



-JEE 



-OG500— - 
(1101XX) 
DDRtDER 



-JEE 



258060 
258068 
258430 



09/29/67 
10/20/67 
12/21/67 



MACH 2050FP 
NAME 

MODE MANUAL 

P«N* 5449051 

IBM CORP. SDD 



DATE 12/29/67 
LOG 662 



SHEET 
VERSION 



FLOATING POINT OPERATIONS 
2ND LEVEL DECODE 



I QG010 



ooooxx 



0300 



QG010#JEE 

SECOND LEVEL 

I-fETCH 

(OOOOXX) 

LPDRtLPER 

(0001XX) 

LNDRtLNER 

(0010XX) 

LTDRtLTER 

(0011XX) 

LCDRtLCER 



CARRY STAT HAS BEEN 
SET ON FOR SHORT WD 



Q 
G 
1 

0 



E 1000 
A L»L 

— «*A +SGN> #0- 

L FN«MD*LSA 
L LS*R*L-»LS 
C E*S47 
R A0(B=1)*A 
R CSTAT MD/JI 
A2 — — AB 

DATA TO L( SETTING 
SIGN P0S)AND TO 
LS. OLD CONTENTS 
OF LS TO R 
SET CR CODE 0010 
FOR POS.A ZERO 
TEST FOLLOWS LATER 



0001XX 



0304 



DATA 



E 0000 

A L*L 
A -SGN* 

L FNtMD*LSA 

L LS*RtL*LS 

C E»S47 

R AQ(B=1)*A 

R CSTAT MD/JI 

E2 — — EB 
DATA TO USETTING 
SIGN NEG) AND TO 
LS. OLD CONTENTS 
OF LS TO R 
TEST FOLLOWS LATER 



0010XX 



R L<0) 
J2 — 



0308 



*X — JB 



IS NEG 
01BF 



SIGN 
IX • 
0000 
L*T 

FN*MD*LSA 
LS*R*L*LS 
E*S47 
AQ(B«1)*A 
CSTAT MD/JI 
E3 — — €C 
DATA TO T(2ER0 TEST) 

AND TO LS 
SET STATS 4-7 
TO 0000 FOR 
GEN NEG FOR CR 



OX • 
1000 
LVT 

FN«MD«*LSA 
LS*RtL*LS 
E*S47 
AQ<B=1)*A 
CSTAT MD/JI 



01BD 



*TEST THE SIGN 
OF THE DATA 
IN L 



J3— 



0011XX 



R L(0) 

N2— *X — NB 
TEST THE SIGN OF 
THE DATA IN L 



DATA WAS POSITIVE 

030C OX 09D1 

E 0000 
A L»L 

0 A -SGN* 

L FNtMD*LSA 
L LS»R«L*LS 
C E*S47 
R AQ(B=1)»A 
R CSTAT MD/JI 
N3 — -HUC 
1 TO DATA SIGN AND 

STORE PER MD 
SET CR FOR NEG DATA 



DATA WAS NEGATIVE 

IX 09D3 

E 1000 
A L*L 
- — A +SGN* 
L FAUMD-H.SA 
I LS+R»t.*LS 
C E*S4? 
R AQ(B=1 )*A 
R CSTAT MD/uI f 
S3 — jofic — 3C 



I 

A 

-0 A 

D 



00 



0340 



-L»T 

BC8 

HOTl^ADDER 
FNtJQl*LSA 
LSH3LS 
S4*tS4*CR 

XX — AE 



L 

C 

A5- 

SAVE CAR FROM 8 
LONG FORMAT 
TEST HO FR FOR ZERO 
BYCCOMPL FR)+1 AND 
LOOK FOR CRY FROM 
ADDER 8 
LO FR TO L 
SET CR 



SHORT FORMAT 
10 



0342 



C S4,tS4*CR 
R 1 T13=0 
J5 — 1* — JE 
TEST FOR ZERO FR 

SET CR 



INVALID ADDRESS 

11 0343 

E 0110 

B E»WR 

B W*MD*F I 

L FNtMD*LSA 
L R-M-S I 
i I 
N5 — OX — NE 

ADR WAS ODD 

SET IRPT CODE 

REPLACE DATA TO LS 
PER MD 



0 T 0 DATA SIGN AMD 
STORE PER MD 



I 

A 
-A 

D 
L 
L 
R 
R 

A6- 



XX 



0349 



— L*T 

BCO 

H0T1»ADDER 
FN*MDQ1»LSA 
L*LS 

BO(A=0)*B 
CSTAT (CAR) 

— AF 



SAVE CAR FROM 0 

TEST LO FR FOR ZERO 
STORE LO PER MDQ1 



NOT ZERO FRACTION 



LONG FR NOT ZERO 

01 0345 

E 1110 
L WS»E*LSA 

LS+LH.S *— O 
S IA+0/2*A 
C E4S47 
R I-fETCH 
E8— —EH 
EXCPNQIA(30)»A 
EXCPN0(IA<30). 
REF)*B. 

CR CODE IS OK 
OP BUFFER TQ L 
DO I-FETCH 




-QT110- 



-EHE 



(00f0l»10fll> 
I-fETCH 



LONG FR NOT ZERO 

10 0346 

11X0 

WS«E»LSA 
LS*L*LS - 
IA+0/24A 
E*S47 

I-fETCH I 
J 8— m — JH 
EXCPNQIA(30)*A 
EXCPNG(IA(30).REF)*B 
SAME AS ABOVE 



-GT10S- 



-NHE 



J 



BOTH HO AND LO FR 
ARE ZERO 

11 0347 

€ 0000 
S lA+0/2*A 
S SMIF 
C E(23)»CR 
I 

R I-FETCH 

N8 — — -<\|H 
SUPPRESS MEMORV 

IF OFF BNDS 

AND PREFETCH 
EXCPNQIA(30)*A 
EXCPNQ<IA(30)«REF>*B 

SET CR CODE FOR 

ZERO 
GO TO I-FETCH 



(OOtOltlOtll ) 
I-FETCH 



-NEE 



-QT310— 
(OX) 

PROGRAM TRAP 



258060 
258068 
258424 
258430 



09/29/67 
10/20/A7 
il/06/6 7 
12/21/6/ 



I MACH 
I NAME 



2050FP 



MAMJAI 
i P.' r 544905; J 
I IBM CORP. SDD 



DmTE I2/29/6" 7 
uOG 662 

LONG/SHORT 
THAT REFER 



shee:t- 
,ERs: r jr< 



-L P' '_ r )APS 
•G SIGN 



LONG WORD WITH ADR EVEN 



00 



0348 



10 
0001 



0ED2 
I 



C S47oE 
CI— XX — CA 



XX 



032B 



A LH. 

FP2ER0 
L WS1*LSA 
L L*LS 
R BQ<A=1)*B 
R CSTAT 0 
El— ** — EA 



QGOIO.JEE-— 
(0100XX) 
SECOND LEVEL 
I-FETCH 




0100XX 
E 0001 
A 0*M 
-*C S03QE 
D MB+1 

L FN*JQ1*LSA 
L L$*R*LS 
R 1 MD/JI 
61— 1* — GA 



L »- 

*-E 1111 



11 
1111 

0— B E*WL 
I B W+MMB 



03C7 



E*WR 



1*LSGNS 
BQ(A=1)*B 
UNORM 0 



G2— 



** — GB 



L, 00 — 



3CC 

-t I 
A -1*R 
*A BCO 

B WR*F 
-D HOT 1 LADDER 
C 0»RSGNS 
R 1 SO 



J2— 



R*L13 

SR1+Q 
FN«MDQ1*LSA 
LS*R*LS 



L 
L 
I 

A3— XX 
HO FR SRI TO 
LO FR TO R 



I*- 
I 



—AC 

L 



E 
A 
-A 

L 
L 
C 
R 

A4 



XX — 0351 
0001 
R*R 

<4*SR1*F 
FN«MD*LSA 
L*LS 
S03QE 
UNORM 

*X —AD 



LO FR SRI TO R 

HO FR TO LS PER MD« 



10 — 03C6 
E 1111 

B E+WR 
-B E*WL 
B W*MMB 
S47QE 
BQ(A=1,*B 
UNORM 0 



C 
R 
R 

E3— 



11 



03CF 



M+LK. 

BC1B FPSL4 



1* — JB 



10 - 

I 

A L*R13 



03CA 



R LSGNS 
L2 — *0 —LB 



FN«MD»LSA 
L*LS 

1 (CARi 
G3— 1* — GC 
SHORT WORD WITH 
ADDR# EVEN** 

10 — 034A 
E 0001 I 
A R»L13 I 

SR1»F I*- 
L FN«MD*LSA 
L L»LS I 
C S03 #1 E | 
XX — JC 



SUPPRESS MEMORY | 
IF OFF BNDS } 
AND tREFEFCH 

EXCPNQIA(30)»A 

EXCPWQ(IA(30).REF)>B 

FR(SRi) TO L AND LS 



U 

0»L 
SM1F 

IA+0/2*A 
FN*MD*LSA 
L*LS 
I-FETCH 



03CB 
I 



L4— 



** —CD 



FRACTION TO R 



CARRY STAT HAS BEEN SET 
ON FOR SHORT WORD 



00 — 3C4 
E-iill 
A R*T 
-B E»WR 
B E*WL 
B W*MMB 

L FNtMDQl*LSA I 
L R»L5 I 
C 0*LSGNS | 
R UNORM SO | 
02— — QB 




INVALID INSTRUCTION 
11 — 0ED3 
E 0110 I 
B E*WR 
— B W*MD«F {#— 



N3 — OX — NC 
ADR IS ODD 
SET IRPT CODE 



10 



03CE 



R»R 

SL4*F 
FN«MDQ1*LSA 
R*LS 

1 0 



Q3— 



01 



10 — GtC 



03CD 



Q 
G 
2 
0 
0 



R*R 

SL4*F 
FNtMDQl^LSA 
R*LS I 
AQtB=0)»A ! 
0 T=0 [ 

3— — SC 



Q4 



10 03D2 

1000 
M+L*L 

BC1B F4>FPSL4 
S03«iE 
FNtMD^LSA 
L»LS 

(CARl 
1* — QD 



01 

E 0000 
L FN*MD»LSA 

R»LS 
IA+0/a^A 
SMIF 
I-^ETCH 



03D1 



S4— 



-SD 



FN«MDQ1*LSA 
R»LS 



OX — 3D4 
t I 
I | 

1 

L 
L 
I 

A6 — 01 
SUPPRESS MEMURY 

IF OFF BNDS 

AND tREFETCH 
EXCPNQIAC30)*A 
EXCPNG(IA(30UREF)*B 

*L0 FR TO LS 



IX 



3D6 



L 
L 
I 

E5 — 



R*R 

F»SL4*F 
FNtMDQl*LSA 
R*LS 



11 



09CF 



M+L*L 

BC1BF*FPSL4 



11 —EE 



FNtHD>LSA 
L»LS 



E6 



00 



07D4 



»-E 
A 



01 — EF 



01 09CD 

1100 
0+R 

WS1»LSA 
LS*L*LS 
S03oE 
CSTAT S7 
E7— — EG 
IF S7 THEN EQUALS 
UNDERFLOW 



L 
C 
I 

C8— 



R+OT 
FN*MD*LSA 
LS*L*LS 
S47«E0*FP 



00 — CH 



XX 



03D7 | 



-| I* — J- 

C 0*LSGNS 
R UNORM i | 

G5— *i — GE 




R 
I 
I 

EB— 



10 

IA+0/24A 
SMIF 
I-FETCH 



07D6 



*— 0- 



01 07D5 

I I 

A R+L»T | 

0 L FN<MD-H r S r A |- 

LS*L»LS | 

S47»ED*FP | 



(00) 



-CHE 



UNDERFLOW *** 



-QT105- 



-EHE 



<00t0l*10«ll> 
I-FETCH 



L 

C 

i 

J8 — 



00 — JH 



I 

A 

L 

C 
I 

L8« 



11 

R*H.->T 
FN*MD»LSA 
LS-H.H.S 
S47*ED#FP 



07D7 



00 — LH 



-NCE 



-QT310- 
(OK) 
PROGRAM TRAP 



R UNORM 0 

i 

05 - — QE 



i 258068 
I 258427 
1 25843C 
I 258545 



09/29/6~ 
10/25/67 
11/09/67 
12/21/6T* 
01/26/68 



MACH 
NAME 
MODE 
P*N # 

IBM CORP* 



2050FP 

MANUAL 
5449053 

SDD 



DATE 
L.OG 



02/22. 
694 



'68 



SHEE- 
VERSION 



QG200 



FLOATING POINT HALVE 
RR LONG AND SHORT 



1000XX 



0320 



QGOIO* JEE— 

( 100QXX) 
SECOND LEVEL 
I— FETCH - RR 



QGOIO.AFE 

(OOOOXX) 

aoooxx) 

SECOND LEVEL 
I-f ETCH - RX 



STAT 2 IS OFF FOR LOAD 
IS CN FOR STORE 



STAT 3 IS ON *QR SHORT WORD 
IS OF* 7 FOR LONG WORD 



A L»T 
-*L FNtMD*LSA 
L LS»R«L*LS 
R AO(B=l)*A 
CSTAT MD/JI 



A2 — 



— AB 



SAVE OLD DATA FROM 

LS IN R 
NEW DATA FROM L TO 

LS 

TEST FOR LONG OR 
SHORT AND VALID 
INSTRUCTION 



LOAD 



0322 



<*L 
L 
C 
R 
R 



XOOOXX 
E 0010 
D D*R 

FN »MD*LS A 
R*LS 
S03.nE 
BQ<A*0)*B 
S3 0 
L2-— 
DATA TO R TO LS 
SET STAT 2 OFF FOR 
LOAD 



* INVALID INST# 

11 034F 

E 0110 I 
B E*WR I 

B W*MD*F 

L FNtMD*LSA 
L R4LS 
I 

C3 — OX — CC 



RESTORE OLD DATA 
SET IRPT CODE IN F 



**#*LONG 
01 



034D 



L WS1*LSA 
L5*R*LS 



STORE 
OOOOXX 
E 0010 



0302 



R*D 

S03QE 



I 

L3- 



XX ~LC 



EFFECTIVE ADR TO R 



E 
A 
-B 

D 
L 
L 
R 

L4- 



XX — - 03D5 
0000 
R+4*A 

E*WL E*WR 
MD+1 

FN«MDQ1»LSA 
LS*L*LS 
S2 

*X — LD 



* (EFF ADR i-f 4 TO 
SAR 



BQ(AxO) >B 
S3 0 



02— 



m — qb 



DATA TO SDR 

STAT 2 ON FOR STO^E 



sSoWoStSHORT 

10 034E 

E 1110 
L WStE^LSA 

LS*L»LS 
S IA40/2»A 
C E*S47 
R I -FETCH 
Q3 — — QC 
EXCPNQIA{30)->A 
EXCPNQ( IA(30) #REF) *B 
* OP BUFFER TO L 
DO I-FETCH 



a 

G 
3 

0 
0 



RR LONG WD 

00 034C 

I 

D MDf 1 
-L FN*J01*LSA 
L LS»L*LS 



-08 100- 



-CFE 



C6 — 1000XX — CF 
LO OF FR TO R 



(1000VX) 
L TO LS 
THEN I-f ETCH 



-CCF 



-GT310— 
(OX) 
PROGRAM TRAP 



-QK666- 



-LDE 



(QX«1X) 

COMPLETE LOAD 
OR STORE 



COMPLETE I FETCH 
SHEET QTUO 



-QT110- QCE 

(ooiOhioai) 

I— FETCH" 



258060 
258430 



'? c ;/6 7 , ! MAC' d050FP 
2l/b7 NAME 

MODE MANUAL 

P,N« 5449054 

IBM CORP. SDD 



DATE 

LOG 



12/29/6? 
^62 



SHEET 
VERSION 



! QG300 



FLOATING POINT LOAD/STORE 
RR/RX FORMAT «LONG/SHORT 



QG010.AFE 

SECOND LEVEL 

I-FETCH-RX 

UOOIXX) 

CDtCE 

(1010XX) 

AD.AE 

uoiixxr 

SD«SE 

(1110XX) 

AW.AU 

U111XX) 

SWtSU 



QGOIO.JEE— — 

SECOND LEVEL 

I="FETCH-RR 

UOOIXX) 

CDRtCER 

UOIOXX) 

ADRtAER 

aonxx) 

SDRtSER 

UllOXX) 

AWRiAUR 

unixx: 

SWR«SUR 



Q 
G 
4 

0 
0 



1010XX — — 032A 
ADD E 0100 
WORM D D*L 
O— *D 0*LB 

L WS2+LSA 
- L-K-S 
C S03.^E 
I 

Ai— — XX — AA 

DATA TO L AND WS2 
SET STATS (0—2 } 
TO 101 FOR NORM 
ADD 



ADD UNNQRM 

1110XX 

E 0110 
D*L 
0H.B 
WS2*LSA 
L*LS 
S03oE 



033A 



D 
-D 

L 
L 
C 
I 

El— 



XX — EA 



DATA TO L AND WS2 
SET ST ATS, 0-2) 

TO 100 FOR UNNORM 

ADD 



SUB NORM 
1011XX — - 
E 1000 
D D* w 
— D 0*LB 
L VS2*LSA 
u L*LS 
C S03oE 



032E 



Jl— 



XX 



-JA 



DATA TO L AND WS2 
SET STATS ( 0-2 ) 

TO Oil FOR NORM 

SUB 



SUB UNNORM 
1111XX — 
E 1010 
D D*L 

D 0*LB 

L WS2»LSA 
L*LS 
S03oE 



033E 



L 
C 
I 

Nl — 



XX — NA 



DATA TO L AND WS2 
SET STATS (0-2) 

TO 010 FOR UNNORM 

SUB 



1010XX 0328 

ADD E 1011 
NOr ; A 0*M 
— #D 0*LB 

L FN%MD*LSA 
L LS*R*.S 
C E+S03 



A3 — _XX — AC 
DATA TO R 
ZEROS TO M 
SET STATS 5 0-3; 

TO 1011 FOR NORM 

ADD 



ADD UNNORM 
1110XX — 



1001 
0*M 
0*LB 

FN»MD*lSA 
L5+R*LS 
E*S03 



0338 



XX 
0000 
0*H 



0307 



JtSHORT EXP SUbT 



EU3*WFN 

aq(b«. *a I 

CSTAT MD/JI | 
A4— — s£jc — i <-AD 
STAT 3 IS ON FOR RX SHORT WD OPERATION 
IS OFF FOR RX LONG wD OPERATION 



CR* STAT IS ON FOR RR SHORT WD OPERATION 
IS OFF FOR RR LONG WD OPERATION 



L 
L 
C 
I 
I 

E3— XX —EC 
DATA TO R 
ZEROS TO M 
SET STATS (0-3; 

TO 1001 FOR UNNORM 

ADD 



SUB NORM 



I 1011XX ■ 032C 

E 0111 1 

I A 0*M I 
0— D 0*lB 

L FN.MD*LSA I 

L -S*R*_S I 

C E*S03 | 

! I 

w3— XX — vC 
DATA TO R 
ZEROS TO M 
SET STATS iO-&) 
TO 0111 FOR NORM 
SUB 



E 
A 
-I 



XX 
0000 
0*H 



0303 



E :I3;*WFN 
I 

R S3 
G4— 



0 

*0 — GD 



SUB UNNORM 

iinxx — 

E 0101 
A 0*M 
0— D 0*LB 



033C 



FN.MDH.SA 
LS*R+LS 
E*S03 



N3 — XX — NC 
DATA TO R 
ZEROS TO M 
SET STATS (0-31 

TO 0101 FOR UNNORM 

SUB 



10 



0446 



R-L*T 

BC 1*FPSR4*F 
0*MB 

S47*ED*FP 

(CAR, 
A7 — X* —AG 
SAVE CAR FROM 1 
-BLOCK CAR ^ROM 8 
NORM SIGN*S4 
COMPL ADD+S5 
(ED<16;*S6 
SED«0;*S7 
SET EXP DIF REG 



H01-H02 TO EXP DIF 
SET FLPT SIGN STATS 



SHORT EXP SUBT 

10 — 0442 



XO 
R*R 



04BE 



FPSR44F 



I 

A 

—A 

D 
C 
R 

E7— 
SAVE CAR FROM 



R-OT 

BC 1*FPSR4*F 
0*MB 

S47.ED*FP 

I CAR ) 
X* —EG 
1 

Bi-OCK CAR FROM 8 
NORM SIGN*S4 
COMP^ ADD*S5 
?ED<16)*S6 

;ed«o:4S7 

set exp dif reg 



R ED*ROAR 
A8 ' »»»» XX — AH 

EXP1 LESS THAN EXP2 
HO FR SR4 TO R FOR 
THE 1ST PRE— SHIFT 



XI 



04 BF 



L*R 

FPSR44F 
FNtMD*LSA 
LS+L*LS 
ED+ROAR 



E8 »»»» 10 — EH 

EXCHANGE OPNDS SO 
SMALLEST EXP IS 
IN R WITH FR SR4 
(THIS SHIFT IS 
MADE ON A GUESS 
THAT EXP NOT EQ5 



XX 

E 0000 
A 0*H 



0313 



C EU3,*WFN 
i I 
R 0 S3 » 

- J5 — 0* —uE 



;* — 



0326 
I 



iJ 



1001 XX — 
E 0010 
D D*;_ 
-D 3*LB 
l WS2H.SA 
- _»LS 
C S03.«>E 
I 

l5 — XX 



DATA TO w AND WS2 
SE" LB=3 FOR 
COMPARE 



1001XX < 
E 1101 
A 0*M 
-D 3*LB 
L FNfMD*LSA 
u LS*R*LS 
C E*S03 



0324 



SAVE HOI IN WS1» 
H01-H02 TO EXP DIFI | 
SET FLPT SIGN STATS A 

0 A 

I D 



EXP SUB FOR RR 
COMPARE SHORT 
10 044A 



E 
A 

H 
C 
R 
R 



XX 
0000 
0*H 

EU3!»WFN 
A0<B=1J*A 
CSTAT MDA 



0317 



N6 — 



I I 



R-L*T 

BC 1*FPSR4»F 
0»MB 
L WS1H.SA 
L R»LS 
C S47.ED*FP 
R tCAR) 
L7 — X* — LG 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
NORM SIGN»S4 
COMPL ADD*S5 
(EDC6)*S6 
iED=0)»S7 
SET EXP DIF REG 



EXP SUB FOR RX 
COMPARE SHORT 
01 — 0441 



Q5— 
DATA TQ R 
ZEROS r 0 M 
SE~ ^B=3 FOR 
COMPARE 



XX — QE 



SAVE HOI IN WSi * 
H01-+H02 TO EXP DIF 
SET F L P 



A R-L*T 

A BC 1»FPSR4*F 
D 0*MB 
L WS1*LSA 
L R»-S 
C S47,ED#FP 
R ;CAR 
Q7— X# — QG 
SIGN STATS SAVE CAR FROM 1 
BLOCK CAR FROM 8 
WORM SIGN*S4 
COMPL ADD»S5 
{ED<16)->S6 
'ED=0^S7 
SET EXP DIF REG 



EXP1 LESS THAN 2 
XO — 04BC 
E 0001 
A R*R 

FPSR4*F 
C E(23i*LSFN 
I 

R ED^ROAR 
L8— afcWoJcXX — i. 

HOI SR4 TO R FOR 

PRE— SHIFT 
LSFN=01tWK STOR) 



EXP1 GREATER OR 
EQUAL EXP2 

XI 04 BD 

E 0001 

A ' ->R 

A " FPSR4*F 
L WS«E-»LSA I 

LS->L->LS -0- 
C EI23)-»LSFN 
R ED+ROAR 
Q8 — »io!ojciti0 — QH 

EXCHANGE OPNDS SO 
SMALLEST EXP IS 
IN R WI-H FR SR4 
rHIS SHIFT IS 
MADE ON A GUESS 
T H AT EXP NOT EQi 



258068 
258424 
258430 



10/24/67 
11/03/67 
11/27/67 



MACH 
NAME 
MODE 
P.N. 

IBM CORP. 



2050FP 

MANUAL 

5,469501 

5^DD 



DA^E 
LOG 



11/28/67 
639 



S M EET 
VERSlOfJ 



-QG405- 
(OOOOXX* 
(0001 XX* 

:ooioxx, 
:oonxx: 
coigoxx. 
.Oioixx; 

10110XX) 

toinxx; 

PRE— SHIFT 



-QG404 
(1000XX; 
UOOIXX) 
U010XX) 
PRE— SHIFT 



-A HE 



-QG403 

(1011XX) 
U100XX) 
U101XX) 
U110XX) 
(1111XX) 
PRE— SHIFT 



-AHE 



-QG402- 



-ADE 



(OOi EXP SUBTR 
Ul!" INVALID 



-QG401 ■ GDE 

{00. 

EXPONENT SUBTR 



-QG401 JEE 

(00} 

EXPONENT SUBTR 



-QG402 NFE 

(005 

EXPONENT SUBTR 
Ul. INVALID 
SPECIFICATION 



-QG403 

(000010: 
t 000110* 
•001010) 
^,001110) 
{010010) 
(010110) 
PRE— SHIFT 



-EHE 



-QG404 

(011010) 
(011110) 
U00010) 
PRE— SHIFT 



-EHE 



-QG405- 

(100110, 
U01010* 
U01110) 
.110010) 
(110110) 
(111010) 
(111110) 
PRE— SHIFT 



-EHE 



i aG4oa 



FLOATING POINT ADD/SUBT/COMPAR 
RR AND RX FORMAT. LONG/ SHORT 



QG400*GDE 

(00) 

EXPONENT SUBTR 



QG400»JEE 

(00) 

EXPONENT SUBTR 



^ 00 0440 

A R-L*T 
— *A BC 1*FPSR4*F|*- 

D 0*MB 
— «#C S47tED*FP 

R ( CAR ) I 

A2 — X* — AB 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
NORM SIGN+S4 
COMPL ADD*S5 
<ED<16)*S6 
(ED«0)*S7 
SET EXP DIF REG 

H01-HQ2 TO EXP DIF 
SET FLPT SIGN STATS 



04 CO 



FPSR4*F 



XO 

E 0010 
A R*L 

1 A 

B E*WL 
B WL*o 
L WS1+LSA 
L LS»R«L*LS 
C iS4«54+CR 
A3 — XX — AC 
EXP1 < EXP2 
EFF ADR * R 
EMIT 2 TO J 
SET COND REG 
HOI TO WS1 (SR4) 



EXP1 GREATER OR 
EQUAL TO EXP2 , 
XI 04C 

I 

B MD*F*U 
— B UL»WL 
B WL»J 
L WS1H.SA 
L LS*R*LS 
C tS4«S4*CR 
R S7 

J 3— *X — JC 
EFF ADR TO R 
MD TO MVR TO J 
SET CR 



STAT 7 IS ON WHEN 
EXPONENTS ARE EQUAL 



XX 
E 0010 
A R4*E*t A 
-L FN«MDQ1*LSA 
L LS*L*LS 



0400 



A4 — 



XX — AD 



XX 0404 

0001 
L*M 

F*SR4*F 
WS1H.SA 
LS*R*LS 
E(23)»LSFN 



E 
A 
-A 
L 
L 
C 

A5 — 



XX 

I 

D D*L 
-D 0*MB 
! 
I 

R 



0414 



XX — AE 



EFF ADR44 TO SAR 
L01 TO L 



HOI 
L01 



(SR4) TO R 
( SR4 ) TO M 



ED*ROAR 
A7 — *#**XX — AG 

L02 TO L 



-QG405 

( OOOOXX ) 
(0001 XX) 
(0010XX) 
(0011XX) 

(OiooxxS 

(0101XX) 
(0110XX) 
(0111XX) 

pre— shift 



-QG400 

(1000XX) 
U001XX) 
(1010XX) 
PRE-SHIFT 



-AGE 



-QG403 

(1011XX) 
(1100XX) 
(1101XX) 
(1110XX) 
UU1XX) 
PRE— SHIFT 



-AGE 



-AGE 



EXP1 GREATER EXP2 
OX — 04C4 
E 0010 I 
A R+E*A 

WS?*LSA U>- 
L LS*R*LS 



J4- 



I 

XX — JD 



EFF ADR+4 TO SAR 
H02 TO R 



0418 



XX • 
E 0100 
A R*R 
-A FPSR4*F 
I 

C S03^E 



XX 



I 

D D*L 



041C 



J5 — XX 
H02 SR4 TO R 



•JE 



J6 — XX 
L02 TO L 



0P2 LESS THAN DPI 

IF FR=0. 

F=NOT 0» EQUALS 

NOT SI FOR 

COMPARE 



XX 



0420 



L*M 

F+SR4*F 

0*MB 

FWtMDQl+LSA 
LS*L*LS 
ED*ROAR 
J7 — aWofcfrlO — JG 
L02 SR4 TO M 
L01 TO L 



D 
L 
L 
R 



-QG40 3 
(000010) 
(0001 10) 
(001010) 
(001110) 
(010010) 
(010110) 
PRE-SHIFT 



-QG404 

(011010) 
(011110) 
(100010) 
PRE-SHIFT 



-QG405 

(100110) 

(101010) 

(101110) 

(110010 

(110110) 

(111010) 

(111110) 

PRE-SHIFT 



-JGC 



-JGE 



-JGE 



EXP1«EXP2 

IX — * 04C6 
E 0010 
A R+E-»A 
— C WS2H.SA 
L LSWH.S 



Q4 — XX — QD 

EFF ADR+4 TO SAR 
H02 TO R 



XX 



0424 



I 

A 0*H 

-L F-N«MD01*LSA 

L LS*L»LS 



Q5— 
L01 TO L 



XX — QE 



XX — 
E 0001 
D D+M 
■C S47. n E 



0428 



R S5 
Q6— 

L02 TO M 



*1 —OF 



-OFt 



-QG407 

(01.11) 

NO PRE-SHIFT 



258060 09/29/67 1 MACH 2050FP DATE 12/29/67 SHEET 1 QG401 

258068 10/23/67 NAME LOG 662 VERSION 

258430 12/27/67 MODE MANUAL 

P«N« 5449055 FLOATING POINT ADD/SU&T/COMPAR 

t»m rnpp. <;DD DETERMINE THE EXPONENT DIFF 



RR LONG EXP SUBtCMPR 



QG400»NFE 
(00) 

EXPONENT SUBTR 
(11) INVALID 
SPECIFICATION 



Q6400»ADE - 
(00) EXP SUBTR 
(11) INVALID 



I 

A 

-*A 

D 
C 
R 



00 



0448 



R-OT 

BC 1*FPSR4*F 
0*MB I 
S47,ED*FP 

(CAR) j 
A2 — X* — AB 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
NORM SIGN*S4 
COMPL ADD*S5 
(ED<16)*S6 
(ED«0)4S7 
SET EXP DIF REG 



HQ1-H02 TO EXP DIF 
SET FLPT SIGN STATS 



RR LONG EXP SUB FOR 
ADD OR SUB OP 

00 — 0444 

I 

A R-L*T 
— *A BC 1*FPSR4*F 
D O+MB 
C S47,ED*FP 
R (CAR) 
E2— X* — EB 

SAVE CAR FROM 1 

BLOCK CAR FROM 8 

NORM SIGN+S4 

COMPL ADD4S5 

<EDC16)*S6 

(ED«0)*S7 



XI 04C3 

E 0101 
A u*R 

FPSR4*F 
L FN«JG1*LSA 
L ..S*L->LS 
C S03«iE 
R S7 

A3— *X — AC 
EXP1 GREATER OR 

EQUAL EXP2 
L02 TO L 
H02 SR4 TO R 



SET EXP DIF REG 

H01-H02 TO EXP DIF 
SET FLPT SIGN STATS 



EXP1 LESS THAN 
EXP2 

XO — 04C2 
E 0001 T 
A R+R 

—A FPSR4*F #- 

L FNtMDQULSA 
L LS-H_*LS j 
C_S03 #1 E I 
XX — JC 



HOI SR4 TO R 
L01 TO L 



IX 
L*M 

FN* J*LSA 
_S*RH.S 
nS4tS4*CR 



04C7 



C 
I 

A4 — XX ——AD 

EXPONENTS EQUAL 

L02 TO M 
H02 TO R 
SET CR 



XX — 
E 0001 
A 0*H 
-B MD*F*U 
B UL*Wi_ 
B WL*J 



042C 



FNtMD01*LSA 
LS*L*LS 
S47 #1 E 
S5 1 

*1 — AE 



L01 TO L 
MD TO J 



0P2 LESS THAN DPI 

IF FRaO. 

FsNOT Of EQUALS 

NOT SI FOR 

COMPARE 



EXP1 GREATER THAN 2 
OX 04 C5 

I 

A 



L*M 

F*SR4*F 
B MD«F*U 

UL*WL 
B WL*J 
D 0*MB 

L FN«MDQ1*LSA 
L LS*L*LS 
C iS4*S4*CR 
" ED4R0AR 



B 



E4— ****10 —ED 

L02 SR4 TO M 
L01 TO L 
MD TO J 
SET CR 



XX 



I 

A 

A 

D 
L 
L 
C 
R 

J4. 

L01 SR4 TO M 
L02 TO L 
SET CR 



0430 



L*M 

F*SR4*F 

0*MB 

FN«JQ1*LSA 
LS*L*LS 
!S4tS4^CR 
ED*ROAR 

XX — JD 



INVALID INSTRUCTION 
0447 
E»WR 



11 

E 0110 
B 

-B W*MDtF 



Q6 — OX 
IRPT CODE TO F 



INVALID INSTRUCTION (ODD ADR) 



11 - 

E 0110 
B 

-B W*MD«F 



- 044B 
E*WR 



J 



Q8— OX — QH 
IRPT CODE TO F 



-QG407- 



"AEC 



(Oltll) 
NO PRE— SHIFT 



-QG40 3 ■ 
(000010) 
(000110* 
(001010) 
(001110) 
(010010) 
(010110) 
PRE-6HIFT 



-QG404 
(011010) 
(011110) 
(100010) 
PRE—SHIFT 



-QG405 
(100110) 
(101010) 
(101110) 
(110010) 
(110110) 
(111010) 
(111110) 
PRE— SHIFT 



-QG405 

(OOOOXX) 
(0001XX) 
(0010XX) 
(0011XX) 
(0100XX) 
(0101XX) 
(OllOXX) 
(0111XX) 
PRE— SHIFT 



-€DE 



-EDt 



-€DE 



-QG4C 
(1000XX) 
(1001XX) 
(1010XX) 
PRE— SHIFT 



(1011XX) 
(1100XX) 
(1101XX) 
(1110XX) 
(1111XX) 
PRE— SHIFT 



-JDE 



-OF 



-QT310— 

(OX) 

PROGRAM TRAP 



STAT 7 IS ON WHEN EXPONENTS ARE EQUAL 



Q 
G 
4 

0 
2 



258060 
258068 
258430 



09/29/67 
10/23/67 
11/27/67 



MACH 
NAME 
MODE 
P«N. 

IBMT,CORP. 



2050FP 

MANUAL 
5449056 

SDD 



DATE 11/28/67 
LOG 639 



SHEET 
VERSION 



1 QG402 



FLOATING POINT AD0/SUBT/COMPAR 
CALC EXPONENT DIFP*** tONG 



Q 
G 
4 
0 
3 



QG400.AHE- 

(1011XX) 

(1100XX) 

(1101XX) 

(1110XX) 

U1UXX) 



SHIFT 5 



SHIFT 4 



QG401.AGE- 

(1011XX) 
(UOOXX) 
(1101XX) 
(11XOXX) 
UU1XX) 



0G402.JDE- 

(1011XX)- 
(llOOXX) 
(1101XX) 
UUOXX) 
(11UXX) 



QG400.EHE- 

(OOOOIO) 

(0001105 

(001010) 

(001110) 

(010010) 

(010110) 



0G401.JGE- 
(000010) 
(000110) 
(001010) 

(ooinoi 

(010010) 
(010110) 



SHIFT 3 



SHIFT 2 



SHIFT 1 



1011XX 042D 

I 

A R*R 
UfcA FPSR4+F 



R S3 
CI— 0100*0 — CA 

FR SR4 TO R 



1100XX 0431 

A R»R 
*-A FPSR4+F 



R S3 
C3— 0011*0 — CC 

FR SR4 TO R 



LONG WORD 



010000 
I 

A M*M 



0410 



SHIFT 5 



010110 — 0416 
I 

A R*R 
*-*A FPSR4-»F 



R S3 
Ml— 0100*0 — NA 

* FR SR4 TO R 



F->SR4»F| 

I | 

G2— 010010 — GB 
LO SR4 TO M 



1101XX 
I 

A R*R 



0435 



FPSR4+F 



R S3 
C5 — 0010*0 — CE 

FR SR4 TO R 



LONG WORD 



001100 
I 

A M*M 



04 OC 




SHIFT 4 



0412 



010010 
\ 

A R*R 

■A FPSR4*F 



R S3 
N3— 0011*0 — NC 

* FR SR4 TO R 



F*SR4*F 



G4— 001110 — GD 
LO SR4 TO M 



1110XX 0439 

E 0001 
A R»R 

FPSR4*F 
S47 #1 E 
Aa(BsO)*A 
S5 S3 



C 
R 
R 

C7— 



** — CG 



FR SR4 TO R 
SET S7 OFF 



LONG WORD 



0408 



001000 1 
I 

A M*M 
0— nA F*SR4*F 




SHIFT 3 



040E 



001110 
I 

A R»R 

•A FPSR4*F 



R S3 
N5 — 0010*0 — NE 

* FR SR4 TO R 



G6— 001010 
LO SR4 TO M 




SHIFT 2 



1111XX 
E 0001 
A H*H 
-A F*SR4 
S47.tE 



043D 



C 
I 

R S3 
C8 — 



S5 
** — CH 



SET S7 OFF 



SHIFT 1 



001010 
€ 0001 
A R*R 
•A 



0- 

040A | 



FPSR4*F 



C S47.^E 
" AQ(B«0)*A 
R S5 S3 
N7 — ** -HMG 

FR SR4 TO R 
SET S7 OFF 



000110 — 0406 
E 0001 

A H*H 
i-A F->SR4 
C S47^E 
I 

R S3 S5 
N8 — ** — MH 

* SET S7 OFF 



-QG406 

(10) SHORT 
CMPL ADD 

(11) SHORT 
TRUE ADD 



•CHE 



-QG407- 

(00) LONG 
CMPL ADD 

(01) LONG 
TRUE ADD 



-QG406 

(01) SHORT 

CMPL ADD 

(11) SHORT 

TRUE ADD 
-QG407 ■ CGE 

(10) LONG 



QG402.EDE ■ ■ . 

(000010) 

(000110) 

(001010) 

(001110) 

(010010) 

(010110) 

i STAT 3 IS ON FOR SHORT WORD 

STAT 5 IS ON FOR TRUE ADD 

STAT 7 IS ON FOR AN EXP DIFF OF 6-13 



SHIFT 0 

000010 — 0402 
I 

A R*R 

-A F+FPSL4 
B WR*F 
I 

R S5 1 
Q9 — *1 — QI 



* FR SL4 TO R 

(CORRECTS FOR THE FIRST SR4 

THAT WAS MADE BY GUESS) 



-QG406 
(01) SHORT 
CMPL ADD 
(11) SHORT 
TRUE ADD 



•QI* 



258060 
258430 



09/29/67 
12/21/67 



MACH 
NAME 
MODE 
P.N. 

IBM CORP. 



2050FP 

MANUAL 

5449057 

SDD 



DATE 12/29/67 
LOG 662 



SHEET 
VERSION 



1 QG403 



FLOATING POINT ADD/ S UB T / COMP AR 
PRE— SHIFT 0 THRU 5 



Q 
G 
4 
0 
4 



QG400 # AHE- 
(1000XX) 
(1001XX) 
(1010XX) 



OG401.AGE- 
UOOOXX) 
(1001XX) 
(1010XX) 



QG402#JDE- 

(lOOOXX) 
(1001XX) 
(1010XX) 



QG405.AFE- 

(11) 



QG405.AGE- 
(11) 



QG400.EHE- 
(OIXOXO) 
(OiXXXO) 
(X00010) 



QG40X#JGE- 
(OXXOXO) 
(OXXXXP) 
(1000X0) 



QG402.EDE- 
(011010) 
(011110) 
(100010) 



1000XX 
I 

A M*M - 
|—*A 



0421 

SL4*F 



Al — XX — A A 

* SHIFT 8 



*L0 SL4 TO M 
(RESTORES FROM 
PREVIOUS SR4) 



1001XX — 0425 
E 1000 
A M*M 
A SL4*F 
C S030E 
— K BO(Asl)»B 
R S3 0 
A2 — — AB 

* SHIFT 7 



*L0 SL4 TO M 
(RESTORES FROM 
PREVIOUS SR4) 



SHIFT 8 

100010 — 
I 

A M*M 
L#A 



0422 



SL44F 



Ql— XX —OA 
TEST FOR WD SIZE 



1010XX 0429 

E 1000 
A M*M 

A SL4*F 
L WS1H.SA 
Hl l*lS 
C S03«tE 
R S3 0 
A3 — *0 — AC 
SHIFT 6 



*L0 SL4 TO M 
(RESTORES FROM 
PREVIOUS SR4 , 



I * SHIFT 7 

OltXXO — 041E 
U— € 1000 
A M*M 

A SL4*F 
C S03QE 
R BQ( A«l )*B 
R S3 0 
02— — QB 

*L0 SL4 TO M 
(RESTORES FROM 
PREVIOUS SR4) 



XX 



I 

A M*H 



034 B 



R BQ(A=1)*B 
R S3 0 
C5— ** — CE 



LONG WORD 
00 — 044C 



* SHIFT 6 



041A 



011010 
1000 
M*M 

SL4*F 
WS1H.SA 
L»LS 
S03.-,E 
S3 0 
03— #0 — QC 
#LOX St4 TO M 
{ RESTORES FROM 
PREVIOUS SR4 ) 
L02 TO WS1 



A R*R 
-A 



F*SL4»F U 



XX — LE 

#H0 SL4 TO R (RE- 
STORES FROM PRE- 
VIOUS SR4i 



SHORT WORD 
10 — 044E 

I 

A R*L 
-D MB+1 



Q5— XX — QE 
HO FR TO L (FOR 

GATING THRU MVR5 
1*MB (FOR HQ 

FR DIGITS 



STAT 3 IS ON FOR SHORT WORD 

STAT 5 IS ON FOR TRUE ADD 

STAT 6 IS ON FOR EXP DIF GREATER 16 



11 — 0453 

-*! 

A 0*R 
-<*B WR*F 



R S5 1 
A9 — *1 — AI 

* SHORT WORD 



ZEROS TO R AND 
F(FR SHIFTS 
OFF THE END) 



SHORT WORD 
11 044F 



A 0+R 
-B WR*F 



R S5 
G7— 



*1 — GG 



ZEROS TO R AND 
F(FR SHIFTS 
OFF THE END) 



XX 
1000 



0438 



S03QE 




*L0 SL4 TO M 
**NOTE*« THE SHIFT 
OF 6 IS DONE IN 
EFFECT BY 2 DIGITS 
LEFT THEN 8 RIGHT 



0»R 
LMB*U 



XX 

I 

A 
B 
B 

B WR*F 
D MB-1 
L WS1*LSA 
L LS»L+LS 

S5 



0434 



UR*WR 



00 

E 0001 
R*M 



0450 



A 
-A 

C S47QE 
-I 

R S6 
G9 — 



F*SL4*F 



*0 



00 



I 

A 0*H 



R S5 
J9— 



09C4 



10 



S6 
** — JI 



09C6 



R S5 
L9— 



56 
—LI 



-QG407 JIE 

(OOtOl)LONG 
CMPL ADD 
(10UDL0NG 
TRUE ADD 



-QG406 

(01) SHORT 
CMPL ADD 
(11) SHORT 
TRUE ADD 



•OFE 



1 

06— *I —OF 
*ZEROS TO R AND 
HO FR DIGIT TO 
F AS GUARD DIGIT. 
GIVES RESULT 
OF RIGHT SHIFT OF 24 



258060 
258068 
258430 



09/29/67 
10/20/67 
11/27/67 



MACH 2050FP 
NAME 

MODE MANUAL 

P»N« 5449058 

IBM CORP. SDD 



DATE U/28/67 
LOG 639 



SHEET 1 
VERSION 



QG404 



FLOATING POINT ADD/SUB/COMPARE 
PRE— SHIFT 6 THRU 8 



QG400 # AHE- 

(ooooxx: 

(.0001 XX) 
(OOIOXX) 
(OOllXX) 
(OlOOXX) 
(OIOIXX) 
(OllOXX) 
(OlliXX) 



QG401.AGE- 

(OOOOXX) 
(OOOIXX) 
(OOIOXX) 
(OOllXX) 
(OlOOXX) 
(OIOIXX) 
(OllOXX) 
(OlliXX) 



QG402« JDE- 

(OOOOXX-5 
(OOOIXX) 
(OOIOXX) 
(OOllXX ) 
(OlOOXX) 
(OIOIXX) 
(OllOXX) 
(OlliXX) 



QG400.EHE- 

(100110) 

(101010) 

aomo) 

(110010) 
(110110) 
(111010) 
(111110) 



QG401.JGE- 

(100110) 

(101010) 

(101110) 

(110010.) 

(110110) 

(111010) 

(111110) 



QG402#EDE- 

(100110) 

(101010) 

(101110) 

(110010? 

(110110) 

(iMOlor 

(111110) 



oooox^ «— 040: 
t j 

A O+MD 

B MD*F*U 

B ?*WR 
r— *B WR*F 

R S3 I 
I Al — *X — AA 



SHIFT 16 



* ZEROS TO F 
(SHIFT IS OFF THE 
END OF THE REG) 



OOOIXX — - 0405 
i I 
A 0»MD I 

B MD«F+U I 

B ?»WR 

s— B WR*F 

R S3 I 

I A2 — #X — AB 
- 0 O 



SHIFT 15 



* SAME AS SHIFT 16 



OOIOXX — 0409 
I 

A R*MD 

A FPSL4 
B MDtF*U 
-B ?»WR 
B WR»F 
. R S3 

A3 — *X — AC r 
* SHIFT 14 | 



rB 
8 



ocuxx 
I 

A R*R 
A SR4*F 



— 040D 
I 



* SAME AS SHIFT 16 



Fa4 — i 10010 — AD 



O-QGXX - 
I 

A R*R 
A SR4*F 



0411 
I 



04 ' A 



Olv-lXX 

I 

A R*R 

A SR4*F 



SHIFT 13 



HO SR4 TO R (LO 
GOES OFF THE END 
SO IGNORE IT | 



SHIFT 15 



1^111110 



043E 



^111110 

A 0*MD 
B MD*F*U 
B ?»WR 
B WR>F 
R S3 
Ql — *X — -QA 



SHIFT 14 



j^lllOlO 043A 

A R*MD 

A FPSL4 
B MD«F*U 
B ?*WR 
B WR*F 
R S3 
02 — *X — QB 
* SAME AS ABOVE 



SHIFT 13 



[^110110 



-I 

A R*R 

A 

I 



0436 



SR4»F 



r 



A5 — 101110 — AE 



SHIFT 12 



HO SR4 TO R 
(LO OFF THE END) 



SHIFT 12 



110010 < 
A R»R 

•A SR4»F 



0432 



Q4— 110010 — QD 
SAME AS ABOVE 



I 

i 

05—101110 — QE 
SAME AS ABOVE 



R 1 
A6 — 



S3 
i# — AF 



SHIFT It 



HO SR4 TO R 
(LO OFF THE END) 



OllOXX 

I 

A R»R 

A 

I 

j R S3 
1 A 7— 



— - 0419 
I 

SP44F *- 



1 I 
*1 —AG 



SHIFT 10 ' 



HO SR4 TO R 
(LO OFF THE END) 




TEST FOR SHORT OR 
LONG WORD 



SHIFT 11 



[^101110 



101110 
-I 

A R*R 

"l 

I 

R 1 
Q6— 



042E 



SR4»F 



S3 
1* —OF 



00 



0854 



R S5 
E8— 



LONG WORD 



S6 



-OG407- 



LONG WORD 



HO SR4 TO M 
STAT 7 ON 



-i 



OX — 04C8 

I I 

A 0*M | 

-=B MDtF*U |*l 

B ?*WL ?+WR 
B W*MD»F 

R 1 S6 ! 
G8 — 1* — GH 



ZEROS TO M 
STAT 7 ON FOR 
SHIFTS OF 6-13 



SHORT WORD 

IX 04CA 

I 

B MDfFMJ 

?*WL ?»WR 
B W*MD»F 

i 

XX — 1 



01 



0855 



F*SR4 



R S5 
E9— 



S6 
** —EI 



11 
0001 
H+H 



E 
A 
-A 
C 
I 

R S5 
G9 — 



0857 



S470E 



F*SR4 



*1 — GI 



10 - 
E 0001 
I 

-C S47QE 



0856 



ZERO TO R (SHIFT 
IS OFF THE END) 



SHIFT 9 




0426 



R S5 1 
J9— *1 — JI 

LONG WORD 

01 0451 

E 0001 | 
A R»M 

S47QE 
I I 

R 0 S6 | 

L9 — 0* 



-EIE 



(00«01) LONG 
CMPL ADD 
(lOfll) LONG 
TRUE ADD 



-QG404- 
(11) 



-AFE 



-QG407 

(01) LONG 
CMPL ADD 
(11) LONG 
TRUE ADD 



-GIE 



HO TQ M 
STAT 7 ON FOR 
SHIFTS OF 6-13 



-QG404- 

(11) 



-AGE 



SL4*F 
* 



IJ" 



R S3 
Q8— 



*: —oh 



xx 

-I 

A 0*R 
B WR*F 



R S5 
Q9— 



031B 



*i — ai 



-QG406— 
:od SHORT 
CMPL ADD 
ill) SHORT 
TRUE ADD 



-QIE 



SAME AS ABOVE 



SAME AS ABOVE 



STAT 3 Of.' FOR SHORT WORD 

STAT 5 ON FOP TRUE ADD 

STAT 6 ON FOR EXP DIF LESS THAN 16 

STAT 7 ON FOR SHIFT OF 6-13 



TEST FOR SHOR T OR 
LONG WORD 



Q 
G 
4 
0 
5 



258060 
258068 
258430 



09/29/67 
10/20/6? 
11/27 '67 



MA GH 
NAME 
MODE 
F«N« 

IBM C 



ORP« 



2050FP 

MP ftJUAL 

5449059 

SDD 



DAVE 
LOG 



11/28/6" 
639 



FLOATING POINT 
PRE-SHIFT 9 



SHEE" 1 QG405 

VERSION 

ADD/SUBT/ COMPAR 

'HRU 16 



-QG409- 



<CE 



OG403.CGE- 

(Oltll) 

PRE-SHIF7 



QG403«Qie- 

(Oltll) 

PRC-SHIFT 



(Ot'il) 
PRMHIFT 



OG405.CUE- 

(Oltll) 
PRE—SHIFT 



QG416.CEF 

(OltlOfll 5 
RECOHPLEHENT 



QG403.CHE- 

UOtll) 

PRESHIFT 



QG408 # UI£- 
(01*10) 
EXP OFtU 



QG409«JHE 

COO) 

PROGRAM TRAP 



* CMPL ADD 

| 01 0 455 

0*E 1111 

A R-L4L 
*A BC8 L0«S4* 
B E*WL E*WR 
B W+MMB 
D HOT 1* ADDER 
C FPZERO 
R S2 (CAR) 
C2 — ** — CB 



SAVE CAR FROM 8 
(T<8-31)=0)# 

<F*0)«S3*S0 
SUB HO FRACTIOWS 
INSERT NORMAL SIGN 
SET STAT 0 IF FR=0l> 
FF TO M(0-7) 



* UNNORM RECMPL 



00 
0000 
-LH. 



I r 



484 

I I 

BCFO L0fiS4*|d 
C FPZERO | 

1 i 

C3— XO — CC 
(F*0) LADDER 
(T(8-31)=0). 

(F=0) # S3»S0 
COMPL FR+l ( IF F=0> 

TO L 
INSERT INV SIGN 



10 
E 1111 
A R-L+L 
*A BC8 L0tS4» 
B E»WL E*WR 
B W4MMB 
D H0T1*ADDER 
C FPZERO 

S2 (CAR) 



0482 



NORM RECOMPL 



10 



0486 



01 



0485 



C iS4*S4*CR 



E 
A 
A 
B 



07D2 



R SO 
C5— 



L8=0 | 
— CE 



| HO NORM OR RECUMPt 
1 NEEDED 
{ SET CR 



ft 

I 



07CD 



G2— 



** GB 



SAME AS ABOVE 



A -L»L 

A BCFO L0«tS4* 

L FN%MD*LSA 
L L»LS 

C S4vtS4*CR 

R F*ROAR 

G3 — ****XX — GC 
<F*0) LADDER 
COMPL FR+l (IF F=0} 

TO L 
INSERT INV SIGN 
STO SUM IN CASE 

NORM NOT NEEDED 
THE FOLLOWING FN BR 
COMPL GUARD DIGIT 
IN F FOR NORMALIZING 



EXP OFLO 
01 

B PSW4*U 



I 

0491 | 




?»WR #-» 



XX — GD 



R W(67)*AB 
E6 — *# — EF 



❖ DO NORMAL. I ZING 



li 



04 B 7 



I 

A 
A 
L 



SET CR FOR ADD 
SUBT AND IRPT 



M+L»R 

BC1B F*FPSL4 * — 0- 
FN*MD*LSA 

L L*LS 

C iS49S4*CR 
R BQ(A=0)*B 
R UNORM (CAR) 
G5— - —GE 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 



01 07P1 

1100 
L*L 

-SGN* 
B E*WR 
B W*MDtF 
L FN*MD*LSA 
L L+LS 
£7— OX — €G 
#10 NORM NEEDED 



FR SL4 TO R AND 
EXP-1 TO R (-1 IS 
DONE BY ADDING FF 
FROM HO BYTE OF M) 
nS0 # (T<8-il)-O)»A SUM TO LS AS NORM 

MAY NOT BE NEEDED* 
(THIS LS INFO MAY 
BE CHANGED LATER » 



TRUE ADD 

tl _ 0457 
-€ 1111 

A RfL*L 
-A BC8 L0tS4* 

B E*WL E*WR 

B W+MMB 

L FN9MD*>LSA 

L LKS 

C FPZERO 

R S2 (CAR) 

L2— ** —LB < 

SAVE CAR FROM 8 

(T(8-31)*0)« 
<F=0) .53*50 

ADD HO FRAC TO L 

INSERT NORM SIGN 
AND STORE PER MD 

STAT 0 ON IF FR=0 

FF TO M(0-7J 



* FRACTION OFLO 



*NQ EXP OFLO 



01 



0489 



L 

L 

C 
R 



L*L 

BC 1*FPSR4*F 
FNtMD*LSA 
L*LS 

lS4tS4>CR 

1 (CAR) 

1* — LC 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
FR SR4 TO L 
EXP+1 TO L AND LS 
SET CR 




STAT 0 IS ON WHEN FR 0 

STAT 2 IS ON FOR NORMALIZED OPERATION 

L BYTE CNTR 0 FOR ADD OR SUBT 

L BYTE CNTR 3 FOR COMPARE 



* TRUE ADD 

11 — 0483 
E 1111 
A RK*L 
—A BC8 L0*S4* 
B E»WL E*WR 
B W+MMB 
L FN*MD*LSA 
U L»LS 
C FPZERO 
R S2 (.CAR) 
Q2— — QB 

SAVE CAR FROM 8 
(TC8-31)s0)o 
(fs0)«S3*S0 

SAME AS ABOVE 



* FRACTION OFLO 



11 



048B 



L 
L 

C 
R 

Q3- 



L*L 

BC 1*FPSR4*F| 
FN«MD»LSA 
L*LS 

->S4tS4*CR 
1 (CAR) | 

1* — QC 



10 
1110 

WS*E»LSA 
LS*L*LS 
IA-K>/2*A 
E*S47 
I-FETCH 




00 



C iS49S4*CR 



0488 



S 
C 

R I-FETCH j 
L4~ — LD 

EXCPN0IA(30)>->A | 
EXCPNQ(IA(30).REF->B 

OP BFR TO L ! 

GO DO I-FETCH 



EXP OFLO 

II • 
E 0000 
C E(13)->WFN 



0493 



R SO 
L6~ 

SET CR 



LB=0 



01 



048D 



10 
1100 

L+L I 

+SGN* h 

E»WR | 

~B W>MP%F I 
L FN *MD*CSA 

L L*LS I 
OX —CM 



01 — 0C3D 
E 1101 
A L*L 
r-A —SGN* 
B E*WR 
B W»MD«F 
L FNtMD*LSA 
L L*LS 
E8 — OX — EH 



R SO LB*0 
G7 — sjojc -p-GG 
BR ON FR=0 
AND ADD/SUB 



XX 



0327 



W(67)»AB 
J7 — 



10 

E 1101 
A L»L 



0- 

0C3E j 



ADD OR SUBTR 
LONG OR SHORT 



-0-A 
B 



+SGN* 
E»WR 



B W*MD»F 
L FN»MD*LSA 
L L»LS 

OX — JH 



11 

E 1101 
B PSW4*U 



01D7 



11 « 

I 

A R-1*L 
□—A BC1B 



048F 



L7— 



FPSL4 
HOT 1 LADDER 
FN%MD->LSA 
R->LS 
0">RSGNS 
BQ(A=0)*B 
UNORh| (CAR) 



— LG 



SGN* FRACTION 
TRUE 




NORMALIZE 



10 



048A 



SAME AS ABOVE 



R AQ(B=0)*A 
R 0 LB=0 
Q4 — *x ^<^0 

INRPT CODE TO F 



NOTE™ 

IF COMPARE, GO TO I-FETCH 

IF ADD SUBT GO TO IRPT 



M+L*R 

BC1B F*FPSL4 
FNtMD->LSA 



SAVE CAR FROM 1 
BLOCK CAR FROM 8 
iS0«(T(8-ll)=0)->A 

FR SL4 TO L 
EXP-1*L 



00 

E 0000 
C E(13)*WFN 



09C8 



L L*LS 
C ^54*54^ 
R BO CA=0>*B 
R UNO^! (CAR) 
OS— —OF 
SAVE CAP FROM 1 
BLOCK CAR FROM 8 
tS0*(T(8-U >-Q)*A 

FR SL4 TO R 



EXP UFLO 

10 — 048E 

~*A M4i.*L ! 
0—A BC1B FPSL4 |«- 
1*LSGMS 



BQ(A=1)*B 
R LSGNS RSGNS 
N8— m — NH 



?*WR 



XX — JI 



*1 




HALVES 



01 D4 



XX 



030F 



C 

-I 
I 

Q7- 



I 

I 

XX — QG 



R UNORM 



0 

— QH 



ZEROS TO STORE 



00 

E 1101 
A L»L 

L0«S4* 
B E->WR 
B W^MDfF 
L FN«MD»LSA 
L L*LS 

OX — Nl 



* — CH 



0 
6 



QG416#QBF — - — 
EXP UNDERFLOW 



258060 
258068 
258430 
25854 S 



09/29/6- 
10 '20/67 
12/21/67 



j ma:h 

I NAME 
MODE 



2050 p P 



MULT. DIV* 



01 — - OSOS 

E not 

A L*L 

L0»S4«> 
B E*WR 
B W^MDfF 
L FN«J-H-SA 
L L-H.S 
S9— OX — SI 
DATE 02/22/6e 
LOG 694 



SHEET 
VERSION 



/ MANUAL 
01/30/68 { P«N» 5449060 
' IBM CORP. SDD 



(XO) 
SET CQND REG 



-QG416- 



-GCD 



(OOOOXX) 
(0001XX) 
(0010XX) 
(0011XX) 
(0100XX) 
(0101XX) 
(0110XX) 
(0111XX) 
(1000XX) 
(1001XX) 
(1010XX) 
(10HXX) 
(1100XX) 
(1101XX) 
(1110XX) 
(1111XX) 
RECOMPLEMENT 



-QT310* 

(OX) 



-CHE 



PROGRAM TRAP 



-QG409- 



-CEE 



(OOtOltlOtll) 
ZERO TEST 



-QT110- 



-LDE 



(00t01%10tll) 
I-FETCH 



-QG416- 
(OltlOtll} 
NORMALIZE 



-LGE 



-QT310- 

*0X/ 

PROGRAM TRAP 



-QG409 

(00) 

EXP UFLO 



-QHE 



QG406 



FLOATING POINT A DD/SU Bf / COMP AR 
SHORT n ADD 'NORM/ CMPL OF FR 



00 



0480 



QG403.CHE- 
(OOtOlf 
PRE— SHIFT 
SHORT 



A M-L4M 
A BCO 

B m*p 

■0— — D HOT 14 ADDER 
D 04MB 
L FN«J4LSA 
L LS4L4LS 
C (T=0)4S3 
R S7 LB=0 
A2 — — AB 

SAVE CAR FROM 0 

SUB LO FRAC TO M 
HO FRAC TO L 
SET S3 ON IF L0*0 
ZEROS TO F AND MB 



STAT 0*1 IF ALL OF FR=0 
STAT 2*1 FOR A NORMALIZED OP 
STAT 3*1 IF T(0-31)*0 
STAT 7*1 IF ED IS 6-13 
L BYTE CTR =3 FOR COMPARE 



QG401.QFE— 

(Oltll) 

NO PRE— SHIFT 

LONG 



QG402.AEE 

(Oltll) 

NO PRE— SHIFT 

LONG 



— 0- 



QG405.GIE- 
' lOltll) 
PRE— SHIFT 
LONG 



QG404.JIE 

(OOtOltlOtll) 
PRE— SHIFT 
LONG 



QG405.EIE 

(00t01tl0«ll) 
PRE— SHIFT 
LONG 



QG403.CGE- 
(10) 

PRE-5HIFT 
LONG 



10 

E 0001 
A 
**A 



Ql— 



0456 



F4SR44F 



XX — QA 



XX 



R 0 
N2— 



08D6 I 

H4H I I 
F4SR4 |*0 



S5 | 
0* — NB 



01 



048 



LO SR4 TO M (LAST 
PRE— SHIFT FOR A 
LONG TRU ADD WITH 
A SHIFT OF 2) 



M"fL4M 
BCO 
B WR*F 
D 04MB 
L FNtJH-SA 
L LS4L4LS 
C <T=0>4S3 
R S7 LB~0 
02— —OB 
SAVE CAR FROM 0 
ADD LO TO M 
HO TO L 

SET S3 ON IF 1=0 
ZEROS TO F AND MB 



00 



0494 



A -L*M 

BCO 
B WR4F 

D H0T14ADDER 
D 04MB 
L LS4L4LS 
C (T*0)4S3 
R 1 LB=0 
A4 — 1* —AD 
SAVE CAR FROM 0 
COMPL ADD? EDsOR 
GRTR THAN 16 
SUB LO FROM ZERO TO M 
HO TO L 

SET S3 ON IF L0=0 
ZEROS TO F AND MB 



00 — 0498 
COMPARE | i 

SHIFT NOT 6-13 A RH.4L 

r—A BC8 L0«S44 j* — 
D CSTAT4ADDER 
C FPZERO 
R (CAR}| 
A6 — X* — AF 
SAVE CAR FROM 8 
CT(8-3l)=02. 

(F*0).S34S0 
SUB HO FRACTIONS 
INSERT NORMAL SIGN 
TURN ON SO IF FR*0 



COMPARE 



00 



049C 



CMPL ADD* ED LESS 
THAN 16 

01 0495 

I 

A M-L4M 
0— A BCO 
B WR4F 

HOT 14 ADDER 
D 04MB 
L FN«s»LSA 
L LS4L4LS 
C (T«0)4S3 
R S7 LB=0 

SAVE CAR FROM 0 

SUB LO FRAC TO M 
HO FRAC TO L 
SET S3 ON IF L0=0 
ZEROS TO F AND MB 



TRU ADD*ED= OR 
GREATER THAN 16 
10 0496 

I 

A L4M 

A BCO 

B WR4F 
D 04MB 
L FN? J4LSA 
L LS4L4LS 
C <T«0)4S3 
R 1 LB»0 
L4— • 1* — LD 

SAVE CAR FROM 0 

LO TO M 
HO TO L 

SET S3 ON IF T=0 
ZEROS TO F AND MB 

TRU ADDtED LESS 



0 * NOT COMPARE 

SHIFT NOT 6-13 



01 

E 0001 



C S47oE 



0499 



I 

E6— 



XX — EF 



SAVE CAR FROM 8 
(T {8— 311*0} • 

(F=0).S34S0 
E(2-3>4LSFN 
SUB HO TO L AND 

STORE PER MD 
INSERT NORMAL SIGN 
SET STAT 0 IF FR*0 



COMPARE 
SHIFT 6-13 



~0- 
I 

0497 | 



THAN 16 

11 

A M+L4M 

—A BCO 
B WR4F 

D 04MB 

L FN«J4LSA 
L LS4L4LS 
C <T*0)4S3 
R S7 LB*0 
04— ** ~QD 
SAVE CAR FROM 0 
ADD LO TO M 

HO TO L 

SET S3 ON IF T=0 
ZEROS TO F AND MB 



J 



049A 



10 - 
0010 
-L4L 

BC8 L0tS44 
CSTAT4ADDER 
MB+1 

FPZERO* E4FN 
CCARI 
X* 



C 
R 

l> 

SAVE CAR FROM 8 
(T(8~31)^0). 

CF=0).S34S0 
E(2-3)4LSFN 



ZERO - HO TO L 
INSERT NORMAL SIGN 



* NOT COMPARE 



SHIFT 6-13 

11 049B 

E 0001 * J 



S47^E 



Q6— 



XX 



XX 
0010 
R-L4L 

BC8 L0«S44 
C5TAT4ADDER 
MB+1 

FN*MD4LSA 
L4LS 

FPZERO tE^FN 
S2 (CAR) 



033B 



E?— 



A R4L4L 
—A 8C8 L0«S44 *0- 
D CSTAT4AD0ER 
C FPZERO 
R {CAR) 
A8 — X* —AH 
SAVE CAR PROM 8 
(T(8-31)=0). 
IF*0).S34S0 

ADD HO FRACTIONS 
INSERT NORMAL SIGN 
SET STAT 0 IF FR*0 



* NOT COMPARE 



— ■* ~— — QG409- 



-AHE 



** —EG 



XX ' 
0010 
-L4L 

BC8 L0tS44 
CSTAT4ADDER 
MB+1 

FNtMD4LSA 
L4LS 

FPZERO #E4FN 
S2 (CAR} 



0380 



J7— 



SHIFT NOT 6-13 
01 — - 049D 
0010 
R4"L4L 
0— A BC8 L0tS44 
D CSTAT4ADDER 
M&fl 

FNtMD4LSA 
L4LS 

FPZERO «E4FN 
S2 (CAR) 



E8 — 



EH 



SAVE CAR FROM 8 
<TC8-31)*0U 

CF*0).S34S0 
E<2-3)4LSFN 
ADD HO TO L AND LS 
INSERT NORMAL SIGN 
SET STAT 0 IF FR=0 



COMPARE 
SHIFT 6-13 

10 



049E 



SAVE CAR FROM 8 
(T(8-3U*0L 

<F*0).$34S0 
E(2-3)4LSFN 
ZERO - HO TO LtLS 
INSERT NORMAL SIGN 
SET STAT 0 IF FR=0 




(X0«X1) 
SET COND REG 



-AFE 



-QG409 

(X0%X1) 
SET COND REG 



I 

A L4L 

BC8 L0tS44 
D CSTAT4ADDER 
~C FPZERO 
R (CAR) 
L8— X* — LH 
SAVE CAR FROM 8 
IT(8-3U*0). 

CF*0).S34S0 
HOfCAR(FR0M L0>4L 
INSERT NORMAL SIGN 
SET STAT 0 IF FR=0 



NOT COMPARE 
SHIFT 6-13 

11 — 049F 
OOiO 
L4L 

BC8 LCUS44 
CSTAT4ADDER 
MB+1 

FN«MD4LSA 
L4LS 

FPZER0«E4FN 
S2 (CARI 

«=GH 



-QG408- 



-EGE 



(OOfOltlOtil) 
RECOMPLEMENT 



-€HF 



-QG408— 
(OOfOltlOfll) 

NORMALIZE 



SAVE CAR FROM 8 
(T(8-3l)=0). 

(F50)»S34S0 
E(2-3)4LSFN 



HOfCARfFROM LO) 

TO L^TO LS 
INSERT NORMAL SIGN 
SET STAT 0 IF FRsO 



I 258060 
I 258427 
258430 



09/29/67 
il/13/67 
li/27/6 7 



MACH 
NAME 
MODE 
P.N. 

IBM CORP. 



MANUAL 
5449061 

SOD 



I DA'E 



ii/28/67 
639 



r jHEET 1 
VERSION 



00*07 



LONG FLOATING ADD OF FRACTION 
WITH TESTS FOR CMPL /NORM 



REC0MFL6NENT 



0G409.CDE- 

'00> 



Q3407.EHF 

OOfOitlO.U} 

NORMALIZE 



QG420.CEF- 
(00) 

NORMALIZE 
LONG 



E 000? 
A MH. 



04 AO 



S47QE 



A1-— XX 
LO SUM TO L. 



RECOMPL* unnorm OPND 



10 — 04A2 
E 0001 
A M*L 

S470E 



El— XX -HEA 
RECOMPL WORM 
OPND 

LO SUM TO L 



DO NO NORMALISING 
NOT ZERO FRACTION 



NO FR UFLU AND 
UNORM OPND 

00 04A4 

E 0001 
A M+R 

r— *L FI\UMDQ1*LSA *-» 
L H*LS 
C S47.tE 
R SO 
C4 — X* —CD 
LO SUM TO Ri 
TO LS. 



11 



0CD3 



I 



XX 



043C 



XX 



0443 



A -L*M 
A BCO 

HOT 1* A ODER 
FN.MD*LSA 
LS*L4LS 
S4tiS4^CR 

XX — EB 



D 

L 
L 
C 

E2— 
SAVE CAR FROM 0 
0-<LQ SUM TO M 
HO SUM TO Lt 
SET CR INVERTED 



-L+L 

L0nS4* 
CST AT* ADDER 
FN%MD*LSA 
L*LS 

S2 1 
E3— *i —EC 
0-<H0 SUM) TO L» 
AND TO LS. 
SET SIGN INVERTED 



-A 
D 
L 
L 
R 



E 
A 

I 

C 
R 



* FRACTION OFLO 



EXP OVERFLOW 



01 



04 A5 



BC 1*FPSR4»F 
L FNtMD*L5A 
L L*LS 

R ( CAR i 

LI — X* —LA 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
HO SUM SR4 TO L 
WITH ENTER 1 TO 
HO FP DIGIT. 
EXPfl TO L *EXP. 



E 
A 

C 

I 

L 
L 
R 
R 



L<HO RESULT TO LS 



* FRACTION OFLO 



11 



04A7 



STAT 0 * i 

ftm ma fraction 



A L*L 
—A BC 1*FPSR4»F 
L FNtMD^LSA 

L LKS 

R (CAR) 
01— X* ~H* 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
* SAME AS ABOVE 



L2- 



XI 04; 
0000 
M*R 

F»SR4*F 

E(I3,*WFN 

FN»MDQ1*LSA 

R^LS 

aqTb=o^a 

0 LB*0 




* NO EXP OFLO 



XO 



04CE 



M*R 

F*SR4»F 
FNtMDQlKSA 
R*LS 

IA+0/2*A 
SMIF 
I-FETCH 



L 
L 
S 

s 

R 

02— 

SUPPRESS MEMORY 
IF OFF BNDS 
AND nREFETCH 
EXCPNQIA£30)»A 
EXCPNQMA'30 .REF 

GO DO I-FETCH 



NO FR OFLO 
NORMALIZED OPND 



10 
0001 



04 A6 



H*H 
SL4*F 



S47 #1 E 
UNORM 



G4— 



SO 
** — GD 



«t50.(T(8-U)s0)*A 
LO SUM SL4 TO L 
HO FR DIGIT TO W 
HO SUM TO R 



NO RECOMPL NEEDED 
UNNORM OPND 



01 04A1 
| 0-E 0001 | 
> { A M*R 5 

iH'-K fn*mdq:h.sa i 

i I L R-K.S | 
C S03.tE 
R SO 
L4— X* — LD 
LO SUM TO R«TO LS 



NO RECOMPL NEEDED 
NORMALIZED OP 



11 



04A3 



H*W 
SL4*F 



OH.SGNS' 



R UNORM 



SO 



A LH. 

1 

L FN«MDQ1*LSA 
L L*LS 
S IA+0/2*A 
S SMIF 
R I-FETCH 
AS— *# — AE 
SUPPRESS MEMORY 
IF OFF BNPS 
AND iREFETCH 
EXCPNQIA(30)*A 
EXCPNQQA(30>.REF)*B 

PKfcVlUUS LU SHIP I 
WIT DEEDED SO WE 
STORE LU BY SR4 
TO L AND TO LS 



* EXPONENT UFLO 



FRACT 10N*ZER0 rH- 
XX — 0344 



ZERO FR NOT 
GUARD DIGIT. 



ZERO 



E 1001 

L FNtMDQl+XSA 

r-L L*LS 
I 

C S03.iE 

R WR*0 

E5— *X —EE 



LO SUM TO LS 
SET CR 



§ ° X ~~ 0405 

I A R— l*R 
*+H>— A BC1B F*FPSL4 
~ HOT LADDER 
FN*MD*LSA 
RH.S 
1*LSGNS 
1 (CAR) 



I 



D 
L 
L 

C 
R 



E6— 



*0- 



— EF 



GO NORMALIZE 



I 

L 



XX 



08CF 



R~1*R 

BC1B F*FPSL4 
HOT U ADDER 
FN^MDKSA 
R*LS 

1H.SGNS 
W~0 * CAR j 



JE 



SAVE CAR FROM 
BLOCK CAR f ROM 8 
HO SUM SL4 TO R 
AND TO LS 



DO — 03C8 
E 0100 

A mi 

«tA F*SL4*F 
B LMB*U 
r-B U*W 
L FN*MD*LSA 
L LS*R»LS 
E*BS 

XX — NE 



00 
E 0100 
A M*L 



04AB 



B LMB*U 
B U»W 

FN«MD*LSA 

LS*R*LS 

E*BS 

BQCAsl^B 
FsO • S7 

** «-LF 



<8~ 



00 — 04AC 

I ! 

L FN$MDQ1»LSA |*i 

L L4LS | 
C 1*RSG'!S | 
R UNORM 0 I 
C7— *o — CG 

ZEROS 10 LS(LO FR) 



* NORM C0MPLE1ED 



a 



01 



04AD 



FNtMDQl^LSA 
L*LS 
S IA+0/2*A 
S SMIF 
R I-^ETCH 
G7— ** —GO 
SUPPRESS MEMORY 
IF OFF BNDS 
AND -1R6FETCH 
EXCPNQIA(30)*A 
EXCPN0(IA<30). 
REF*B. 



^NORMALIZING 
HAS 

UNDERFLOWED 

10 » 04AE 



ZERO TO L.S 
{LO FRU 
01 



M«4»L 
BCO 

FN«MD*LSA 
LS»R*LS 



C E^E 



*B.- 



Q4<~ — OD 
iSO.^T'.e-ll^O^A 
LO SUM SL4 TO L?HO 
HO FR DIGIT TO W 



01 — « 04A9 
E 0100 
A M*l 
— A F->SL4->F 
B MD.F+U 
B UR^WR 
L F{\isMD*LSA 
L LS-^R^LS 
C E*BS ! 

as— xx ™qe 




R 

L7 



FNtMDQi^LSA 
L*LS 
l^RSGNS 
UNORM 0 

*0 — LG 



10 

M-1*L 

ECO 

FN*MD*LSA 
LS^ft^LS 



L 
L 
I 

C6— 



0CD2 | 



j *— H 



XX — CH 



I 

A 
-D 
L 
L 
I 

C9— 



XX 



0323 



P-l *R13 
CSTATMODE^ 
F^JtHIHLSA 
R*LS 

XX — C 



I 



01 



S6 
E8— 



*0 



0CD1 



0 

—EH 



00 



OCDO 



J. 



L*L 

FNtMDQl^LSA 

L*LS 
IA-H)/2*A 
S SMIF 
R I-f ETCH 
E9— —El 
EXPO^JENT UFLO 



XO 



04CC 



03C9 



T C BYTE 1^ 
NOT ZERO. 



OX 



04C9 



R-1*R 

BC1B F4FPSL4 

H0T1*ADDER 

FNtMD*LSA 

R*LS 

(CAR) 



J8*~'*-' 



L 
C 

G9— 



R*L 

FNtMO>LSA 
L*LS 
l^RSGNS 



00 



ZEROS TO LSaO FR) 



*— 0 



X* — JH 



SAVE CAR FROM L 
BLOCK CAR FROM 8 
HO SUM SL4 TO R 

EXP-I TO R 



XX — NG 



^ BYTE I)~ZERO 

IX — 04CB 

A R«i*R 
0*4— A BCIB F^FPSl4 
D HOTl^ADDER 
L FNtMD-^LSA 
L RH.S 

R i «CAR1 
1* 



04 AF 

L*L 

SL4*F 
FN«MDQ1*LSA 

TZ*BS 

*X — QG 
LATCH ZERO TEST 
PER BYTE STATS 
LO SUM SL4 TO L 



t?0 R 



NORM COMPLETE AND 
NO UFLO 

XI 04CD 

,110 

WS«E*LSA 
LS*L*LS 
IA-H)/2^A 
E*S47 
I-FETCH 
L9— ** -«L 
EXCPNQIA'30 *A 
EXCPNQ(IA 30;.REF)*B 
OP BFR TO u 
GO DO I-FETCH 



E 
L 

S 

c 

R 



SAVE CAR FROM i 

block car from 8 
same as above 
note: 

WITH BYTE I ~ 0 
MORE NORMALIZING 
JS NEEDED 



XX 



01D6 



k 

-D 
I 

R 
I 

09 — ^^xx — ai 



R-1+R13 
CSTAT4ADDER 

F^RQAR 



-UTI05- 



(oo#oiao«n>- 

I-F^TCM 



-QG409- 



<1X) 
TIST MASK 



-€EC 



(KO)f'JONZERO 
(Xl)ZERO 



-UG420 1 CIE 
(XX) 



-QG416— 
(OOtlO) 
UNDERFLOW 



(00) 
EXP 



-«TilO- 



-tig 



i 00.01. iOtU) 
I-FETCH 



-QG420- a i€ 
50000XXI 
<0001XX) 
(0010XXI 

ioouxx> 
joiooxx: 

C0101XXI 

OlilXX 
1000XX? 
U001XX 

; io;Oxx 
io:ixx> 

1100301 
U01JTX 

U11XX' 
RECOMFLEMENT 
GUARD DIGIT 

mm %m - 
-om o* ^^ ' -% m 



258545 



01/26 68 



2b8060 
258068 
258424 
2£§42~ 
291430 



09/29/67 
10/20 '6~ 
11/06/67 
11/13/^ 
11/27/67 



MACH 
NAME 
MQi^ 
P.N# 

IBM CORP. 



2050FP 

MANUAL 
544 W62 



DA-E 02/22/68 
LOG 6^4 

LUMG FLOAtltlG 



SHiET ^ 

\0tmim 



ft 
0 
4 
0 
* 



QG406*C£E- 
(00t01ti0«m 
SHORT 



NOT ZERO FR 
AMD COMPARE OP 

-O- 



04 D2 



QG407.AHE 
(XOfXl) 
LONG COMPARE 



QG420#NEE 

(XX) 




QG416«CCI 

(00)' 

EXP UNDERFLOW 

QG408 # CDE' 
(XOtXl) 
LONG 



0G408«EEE« 

UXi 

ZERO FRACTION 

Q6406#QHE 

<00> 

EXP, UFLO 

QG416 # QBF 

(00, 

EXP UFLO * 

QG503.GIE 

00? 
UNDERFLOW 
Q6200 # CHE« 

(00 J 

EXP UFLO 

QG408.GIE 

iOO) 

EXP UFLO 
CX5406.CCE 

<X0' 



OG902*NH£< 

{00* 

LONG DVD 
EXP UFLO 

QG?02,AIE< 
{ XX ' SHORT MPL 

EXP UFLO 



QG407.AFE- 
<X0*X1) 
LONG COWARE 



STAT 0 ON FOR FR*0 



Q3 

. SUPPRESS 

IF OFF BMDS 

AND tREFETCH 
EXCPNQIAC30^A 
EXCPm CIAC 30 ?.REF)*B 

SET CR=0 

GO DO I-FETCH 



258060 
258068 
258427 
2S8430 
258545 



09/29/67 
10/20/67 
U/14/67 
12/21/67 
01/26/68 



HACM 
NAME 
MODE 
P#N» 

X8M cqrp« 



2050FP 

MANUAL 
5449063 

SDD 



DA^E 
LOG 



02/22/68 
694 



SHEET 
VERSION 



X 00409 



FLOATING POINT A0D/SU8T 

zero test* cmmmm 



QG406.GCD— - 

(OOOOXX) 
XQOQXXX) 

:ooioxx: 
(001 ixx; 
iciooxx; 
;oioixxj 
(onoxx: 

(OUIXXJ 
U000XX) 
(1001 XX \ 
U010XX) 
(1011XX) 

(liooxx; 

(1101XX) 
(1110XX) 
U111XX) 
RECOMPLEMENT 
GUARD DIGIT 



10 



09CE 



QG408«CGE- 
(OOtlO) 



L*L 

SL4*F 
FN«MDQ1*LSA 
L*LS 



CI— 



XX — CA 



XX 099B 

I 

n-i*R 

BC1B F»FPSL4 
HOT LADDER 
FN«MD*LSA 
R*LS 



I 

A 
-A 

D 
L 
L 

C2— 



00 



I 

A R»L 

-L FN«MD*LSA 
L L*LS 



09CC 



XX — CB 



XX 



09C9 



C3— 



00 — CC 



QG503.NGE— 
(01) 

SHORT DIVIDE 
WITH UFLO 
CORRECTED 



Q0406.LGE- 

(OlflOtll) 

NORMALIZE 



a 

G 
4 

1 

6' 



R UNORM 0 
E2— *0 — EB 
^NORMALIZING 
COMPLETE 



01 

-*E 1110 

L WStE*LSA 
— L LS*L*LS I 
S TA+0/24A 
C E*S47 | 
R I— FETCH I 
G2 — • m ~GB 
EXCPNQIA!30)*A 



03B5 J 



I 



EXCPNQ(IA«30;.REF)*B 



MORE NORM NEEDED 



11 



03B7 



MH.*R 

BC1B FPSL4 
0»RSGNS 
FN* MD*LS A 
L*LS I 
BQ(A=0)»B 
UNORM (CAR) I 
L2 — ** —LB 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
«|S0.(T(8-11)*0)*A 

FR SL4 TO R 
EXP-1 TO R 



NORM COMPLETE 

01 C4B9 

E 1110 
L WS«E*LSA 

L LS*L*LS 

S IA+0/2*A 
C E*S47 

R I— FETCH I 
G3— *# — GC 
EXCPNQIA{30}*A 
EXCPNQ(IA(30UREF)*B 



MORE NORM NEEDED 



11 



04BB 



* — 0 A 



EXP UFLO 



10 
0000 
L*L 

FN»MD*LSA 
L*LS 
1*LSGN5 
UNORM 0 



03B6 



R-14L 

BC1B FPSL4 
D H0T1*ADDER 
L FNtMD4LSA 
L R*LS 
R BQ(A=0)*B 
R UNORM (CAR) 
L3 — ** 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
-»S0.(T(8-11)=0)*A 

FR SL4 TO L 
EXP-1 TO L 



EXP UFLO 



02— 



*0 —OB 



SET ZEROS AND IRP7 



E 
A 

L 
L 
R 



04BA 



10 
0000 
R*L 

1H.SGNS 
FN»MD*LSA 
L*LS 

UNORM 0 
Q3— *0 — QC 
LSGN EQU ADD 
OR SUBTRACT 



-QG409- 
(00* 

exp wmm*m 



-QT11C 
(OOtOltlOtU) 
I-FETCM 



0 TO LO DIGIT OF R 



0 — #E 
A 
A 
I 

R 

R 



OOOOXX 



0403 



0000 
MfL»R ! 
BC1B E*FPS.-4 



BG ( A=0: *B I** 
UNORM (CAR^ | | 
C5— — — — CE ' 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
iS0«(T(8-ll)»0)*A| 



C TO LO DIGIT OF R 

OlOOXX — — 0413 

0* E 1100 | ! 

A Mk*R | ! 

A BC1B E*FPSL4| I 
i I ! 

R BOiA=0}->B 1-0 
R UNORM ; CAR. \ \ 
G5— — GE j 
SAVE CAR FROM 1 | 
BLOCK CAR FROM 8 | 
iSO. .1(8-11 JsO}*A| 



F TO, LO DIGIT OF, R 

0001 XX 0407 

1111 I 
A MfL»R 

A BC1B E*FPSL4 
I 

R BQ(A=0)*B 
R UNORM (CAR) 
C6— ** — CF 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
«iS0»CT(8-il)«0)+A 



B TO LO DIGIT OF R 



8 TO LO DIGIT OF R 

1000XX — 0423 I 
1000 

mK*r . 
bc1b e»fpsl4 



0101XX ■ 0417 

E 1011 
M+L*R 

BC1B E»FPSw4| 



E 10 LQ"DIGIT OF R 

0010XX 040B 

1110 
MfL*R 

BC1B E*FPSL4 



«• TO' LO DIGIT OF R 



BQ(A»0)*B 
UNORM (CAR) 
C7 — fr* — CG 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
tS0«(T(8-11)*0)*A 



I 

I -a 



bo(a=o:*b 
unorm (car. i 

G6 — — GF 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
tS0.cT(^-11:«0)*A 



7 TO LO DIGIT OF R 



BQCA*0)*B 
UNORM (CAR) 
L5— ** — LE 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
tS0.(T(8-11 }=0)*A 



\ 

-0 



4 TO LO DIGIT OF R 



1100XX 
-E 0100 
M+L»R 

BC1B E*FPSi 



0433 



1001XX 

0 E 0111 

A 
A 
I 

R 
R 



0427 



MfL»R 

BC1B E*FPSL4 



A TO LO DIGIT OF R 

0110XX 041B 

1010 j 
A M+L*R 

A BC1B E*FPSL4| 

R BQ(A«0}»B 1-6 
R UNORM XAR) I 
G7— %Z — GG 
SAVE. CAR FROM 1 
BLOCK CAR FROM 8 
TSO.CTte-lDsOW 



0011XX 040F 

HE 1101 
ttR-»R 

BC1B E*FPSL4 



BQ(A=0)*B 
UNORM (CAR) 
C8 — — CH 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
iS0.(T(8-ll)=0)*A 



9 TO LO DIGIT OF R 



BQ(A«0)+B 1-0 
UNORM (CAR) 
** 

SAVE CAR FROM 1 
BLOCK CAR FROM 8 
tS0.(T(8-U»=0)*A 



3 TO LO DIGIT OF R 



0437 



A 
A 

I 

R BQfA~0)*B -=0 
R UNORM (CAR; I 
Q5— — <}E 

SAVE CAR -ROM . 
B^OCK CAR FROM 8 
-iS0»<T(8-U>-0;*A 



1101XX 
0011 
M+L*R 

BC1B E*FPSL4 



A 

A 
I 

R BQ(A«05*B -0 
R UNORM ( CAR 
Qfe— ## —OF 
SAVE CAR FROM 1 
B__DCK CAR FROM 8 
^S0»t r :8-li^0;*A 



6 TO LO DIGIT OF R 

1010XX 042B 

0— E 0110 
A M+L*R 

A BC1B E*FPSL4 
I 

R BQ(A=0)*B 
R UNORM (CAR) 
L7— jfcjc -H_ 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
nS0.(T(8~ll)=0)*A 



0— E 
A 
A 
I 

R 

R 



0111XX 



041F 



1001 
MfL*R 
BCIB E*FPSL4| 



BOCA=0)*B 1-0 
UNORM (CAR! | 
G8 — — GH 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
iS0.<T(8~H)*O)*A 



2 TO LO DIGIT OF R 

1110XX 043B 

E 0010 

A MfL+R 

A BCIB E*FPSL4 

R BQCA=0}">B 
R UNORM ?CAR) 
Q7~ m — QG 
SAVE CAR FROM I 
BLOCK CAR FROM 8 
-S0»(T{8-ll v ,s0)*A 



5 TO LO DIGIT OF R 

101 1XX — 042F 
0101 
MfL*R 

BCIB E»FPSL4 



BQ(A*0)*B -0 
UNORM (CAR) 

** — 4.H 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
tS0«(T(8-11)=0)*A 



1 TO LO DIGIT OF R 



1111XX — 043F 
-E 0001 
MfL*R 

BCIB E*FPSL4 



BQ(A»0. v *B |-0 
UNORM (CAR: 
Q8 — W —OH 
SAVE CAR FROM 1 

block car from e 
tSo»»,t(8-:i;=o x *a 



INSTRUCTION WORDS TO THE 
LEFT IN COLS. 5 THRU 8 ARE 
A 16 WAY FN BR FROM F« 
EACH IS THE SAME EXCEPT 
FOR THE EMIT FIELDt>EACH 
WILL DO A NORMALIZE STEP 
WITH THE COMPL OF THE 
GUARD DIGIT BEING SHIFTED 
INTO THE FR IN R 



-OBF 



-QG406— 

HQ) 

EXP UNDERFLOW 



-CEF 



-QG4Q6- 
(OltlOtll) 
NORMALIZE 

-^»409 
(00) 

EXP UNDERFLOW 



258060 
258068 
258430 



09/29/67 
10/23/67 
12/21/67 



MACH 
NAME 
MODE 

IBM CORP. 



2050FP 

MANUAL 

5449064 

SDD 



DA" E 
LOG 



^29/67 



662 



SHEET 
VERSION 



0^416 



FLOATING POINT ADD/5.UB /COMPAR 
RECOMP. GUARD DIGIT 



OG408.QIE— — 

(OOOOXX) 

(OOOIXX) 

(OOIOXX) » 

(OOllXX) 

(OlOOXX) 

(OIOIXX) 

(oixoxxi 

(OU1XX* 

(1000XX) 

(1001XX? 

(1010XX! 

(lOllXXi 

(UOOXX5 

U101XX) 

(HlOXXi 

(11XIXX) 

RECOMPLEMENT 

GUARD DIGIT 

NORM LONG 



QG802.JDE- 

(XX) 



QG802.EAB- 

(OOOOIX) 

(OOOllX) 

BORROW 

(COO10X) 

(OOIOOX) 

NO BORROW 



QG802.NCE- 
(XX) 



QG408.CIE- 
(XXI 



s 

2 % 
0 v 



0 TO F 



F TO F 



I 

A 

■ *D 



XX 



0539 



01 



L 

L 
R 
R 
CI 



R~L*R 

CSTAT4ADDER 
FN*J*LSA 
LS+LH.S 
AG|B*0)»A 
S2 G2<0 

— CA 



-0- 



SUBTRACT HO 6X MPCD 
FROM PRODUCT IN R # 
LO MPCD PER 4 TO L. 



C2- 



05A5 



XX — CB 



MPLR»0* BORROW 
LO IX MPCD TO L 
TN OFF BRW SI AT 6 



10 



0-! 



XX 



053D 



A R+i.*R I 
~*o CSTAT^AODER - 
L FN«J»L$A S 
L LS*L*LS 
R AQ(B=0)4A 
R S2 G2<0 | 
LI"—* «-~LA 

ADD HO MPCD TO 

PROUDUCT IN R. 

U> MPCD PER J 

TO L« 



G2— 



05A6 



XX —SB 



11 



05A7 



\ H+L*H 

•0-A BCO F*$R«*F 

L FM,JQ1»LSA 

lj, L$»L»L$ 

L2<— 11 



10 



0032 



XX 



09CA 



! 

A L*L £ 
«B WR*F 4 
L FN <jMDQ1*LSA 
L L*LS | 
C CTs01*$3 i 
N2 — XX ™NB 



oi 



0031 



i 

R 
R 

q: 



AQ{B~0}*A 
UNORM S2 
— — QA 



L»L 

FN«MDQ1*L$A * J 
L L*LS 
S IA+Q/2*A 
S SMIF 
R I-FETCH 
Q2«= —OB 



II 



0033 



R F*RQAR 
S2«-##*#XX —SB 



OOOOIX 



E 
B 
r#B 
I L 
L 
C 
R 
R 



1100 
E*WL 
WL*J 
WSiE*LSA 
LS*L*LS 
S03oE 
AQ(B*0'*A 
S2 G2<0 



0502 | 



0301 J 



C3— 



— CC 



00010X 0504 

E 1100 
B E*WL 
OB WL*J 
L LS»L»LS 
L WS«E*LSA 
R AG(B=0)*A 
R S2 G2<0 
G3-— — GC 

MPLR=i* NO BORROW 
LO IX MPCD TO L* 
I 

O 



I OOOOXX 

0— oooo 

I B E»WR I 

I B WR»F | 
L FN«MD*LSA 
L LS*L»LS | 
C$ — 00 — CE 



C TO F 



0311 



0100XX 
0— £ 1100 
A L*M 
8 

B WR*F 
L FN*MD*LSA 
L LS*L«R*LS [ 

G5 — 00 — GE 



E*WR 



Q E 

A 
B 
B 
L 
L 

C6< 



OOOIXX 



0305 



1111 
L*M 

E*WR 

WR*F 

FN %MD»LSA 
LS»L%R»LS 

00 — CF 



B TO F 

OIOIXX 
1011 
L*M 



0001 IX 



0S06 



1000 
B E>WL 
G~B WL*J 
C SC3» 1 € 
L W$*E->lSA 
L LS*L^L$ 
R AO(B~0)*A 
R S2 G2<0 



8 TO F 
1000XX 



L3~ 



-~ LC 



#MPLR=1* BORROW 

LO 2X MPCD TO U 
TN OFF BRW STAT 0 



001 OOX 0508 

E 1000 
B E*WL 
•B WL*4 
L WS*E*LSA 
L LS*L*LS 
R A0(B^0>*A 
R S2 G2<0 
Q3 — ■ — QC 
MPLR-2.9 NO BORROW 



XX 



O022 



ft SO 1 



1000 
L*M 



B WR*F 
L 
L 



0321 



6*WR 



FN«MD*LSA 
LS*L*R*L$ 



L5~ 



00 LE 




0315 



E*WR 



E TO F 



0010XX 0309 

1110 j 
A L*M 

B E*WR j 

B WR4F 
L FN«MD»LSA 
L LS*L«R*LS j 
C7 — QO — CG 



D TO F 
OOllXX 



l-0 



— GF 



0325 



11 

E 0010 



09D7 



C EC13)>WFN 
I 

MS— XX — NE 



A TO F 



XX 



0012 



A R*R 

I 

C FP2ER0 



0331 



XX — QO 



i ltOOXX 
0 E 0100 

A L*M 

B 

B WR*F 
L FN9MD*L$A 
L LS*L*R*L$ 
QS — 00 ~QE 



E*WR 



e^wr 



P!\i?MD*LSA 
LS+L^R^LS 

00 — i.F 



A TO F 

0110XX 0319 

0 E 1010 | 

A L»M 

B E*WR 
B WR^F I 
L FM*MD*LSA 1-0 
L LS*LtR->LS | 
G7 — 00 — GG 



1101 
L*M 



I 

0 E 

A 
B 

B WR*F 
L 
L 



030D 



E*WR 



FN*MD*LSA 
LS^LtR^LS 



ce- 



ll 
I 



00 — CH 



6 TO F 



0329 



-0 



3 TO F 

1101XX 
OOil 
L^M 



0335 



-0 



A 
B 

B WR*F 
L FNs>MD^LSA 
LS»LsR»L$ 



E^WR 



101 oxx 

0~-E 0110 
A L*M 

B E->WR 
B WR4F 
L FN^MD^LSA 
L LS^L^R^LS 
L7 — 00 



9 TO F 

0111XX — 031D 
0— E 1001 
A L4M 

B E+WR 
B WR*F 
L FN9MDH.SA 
L LS*L»R*LS j 

G8— 00 — GH 



-0 



5 TO F 

101UX — * 032D 

0 E 0101 j 

A L*M 

B E»WR 
B WR*F j 
L FNtMDKSA -6 
L LS^LtR^LS j 
L8— 00 <^LH 



01 



0905 
I 



$ IA40/2*A 
S SMIF 
R I-f ETCH 

N7 — s^e ~WG 



2 TO F 

¥ II10XX 
E 0010 



-QG802- 

<XX) 



-CBE 



-QG803- 



0339 



-0 



Q6« 



00 —OF 



A L*M 
B 

B WR»F 

FN^MD^LSA 
LS^L^R^LS 



E*WR 



L 



-QG409- 
IXX) 



-NEE 



00 — QG 



1 TO F 

1111XX 033D 

~~€ 0001 j 
A L>M I 
B E+WR I 

B WR*F 
L FNijMD+LSA j-0 
L LS*L«R*LS j 
Q8— - 00 —QH 



-QT105- 



-QBE 



(00«01«10»Ll 
I-FETCH 



-QG408- 
(00) 
LONG 



-CEF 



258060 
258068 
258424 
258430 
258545 



09/29/67 
10/27/67 
11/02/67 
11/27/67 
01 Z26/68 



MACH 2050FP 
NAME 

MODE MANUAL 

P«N» 5449065 

IBM CORP. SDD 



DATE 02/22/68 
LOG 694 



SHEET 
VERSION 



QG420 



FLOATING POINT ADD/SUB/COMPAR 
RECOMP GUARD DIGIT LONG 



U0IXX — 
€ 1101 
B **W 
-«*D DH. 
0 04MB 
L UStE+LSA 
L R*LS 
A I— XX 



0336 



DVR TO L 

SAVE DVD IN WS13 
XX — - 01D0 
0X10 
R*H 



E 
A 
—I 
L 
L 
I 

CI— 
DPI IN H 
0P2 IN WS6 



WS«E+LSA 
L*LS 



XX — CA 



XX 033F 

E 1111 
A L*L 

E*WL E+WR *— tH 
B W+MMB 
C FPZERO 
R S3 

A2— *X — AB 
<T(8-31)»0U 
<F«0US3*S0 
SET ONES IN BYTE 0 
OF M 



XX — 03C5 
1101 I 
L+T 



WStE*LSA 
R*LS 
FPZERO 
E2~ IX —6 
SAVE 0P1 (DVD) 
IN WS13 



* ADDRESS OK 

10 — 0352 
0110 
R*H 



E 
A 
—I 

L 
L 
I 

J2 — 
□PI IN H 
0P2 IN WS6 



WS«E»LSA 
L*LS 



XX — JB 



1101 XX — — 0334 
E 0001 
A -1*M 
-*A BC1B * — 0- 
D HOT 14 ADDER 
L FN«MD4LSA 
L LS*R*LS 
C S030E 
R A0(B=1)4A 
R CSTAT MD/JI 
Ql — ** — QA 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 



ILLEGAL ADDRESS 

11 — 0353 
E 0110 

B E*WR 
B W»MDtF 



02 — OX — QB 
SET IRPT CODE 
IN F 



DVD TO R 

SET ONES IN M 



-QGfi 

(OX) 

RX LONG DIVIDE 



SHORT WORD 

IX — 09D6 
E 0110 
A M+L4R 

A BCIB FPSL4 *i 

L WS2+LSA 
— L L*LS 
C S47 # iE 
R BQ(A»0)*B 
R UNORM (CAR) 
C3 — ** — cc 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
iS0.(T<8-ll)=0)4A 

SAVE DVR IN WS2 
NORMALIZE THE DVR 

FR IS SL4 TO R 

EXP-1 TO R 



* NORM NO UFLO 



* NO NORM NEEDED 
01 — 0381 
1101 
0*R0 



* NORM AND UFLO 



* * NORM AND UFLO 



I TT= 



-i 

A 
A 
L 
L 
R 
R 



0383 



M+L4R 

BCIB FPSL4 
WS2+LSA 
L*LS 

BQ(A«0)+B 
UNORM (CAR) 
G3 — ** — GC 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
tS0«(T(8-11)s0)*A 
SAVE DVR IN WS2 
TRY ANOTHER NORM 
FR IS SL4 TO R 
EXP-1 TO R 



* NORM NO UFLO 



■ 0382 J 



10 
0010 
M+L4R 

BCIB FPSL4 

WS2+LSA 

L4LS 

S470E 

Bfl(A=0)->B 

UNORM (CAR) 



E4— 



** —ED 



SAVE CAR FROM 1 
BLOCK CAR FROM 8 
iS0«(T(8-ll)*0;*A 
SAVE DVR IN WS2 
TRY ANOTHER NORM 
FR IS SL4 70 R 
EXP-1 TO R 
TURN ON S6 FOR UFLO 



11 — 0357 
R-1*L 

BCIB FPSL4 
H0T14ADDER 
WS24LSA 
RKS 

BQ(A=0)*B 
UNORM (CAR) 

i— » 



SAVE CAR FROM I 
BLOCK CAR FROM 8 
tS0#<T(8~11*«0)*A 
SAVE DVR IN WS2 
TRY ANOTHER NORM 
FR IS SL4 TO L 
EXP-1 TO L 



E 
A 

—I 

L 
L 
I 

C5— XX — CE 
DVD TO L 

ZEROS TO DVR EXP 
AND SAVE IN WS13 



WStE*LSA 
LS*LtR*LS 



XX 



0384 



A LH. I 

— C FPZERO | 
I 

I 1*0- 

I ! 

E6— 11 — EF 
<T(8-3i>=0}# 
(F*0).S3*S0 
TEST FOR DVD IN 
L = ZERO 



038A 
I 
I 



* NO NORM NEEDED 



* NORM AND UFLO 



10 « 0356 

0010 
R-i*L 

BCIB FPSL4 
HOT 1 LADDER 
WS2*LSA 
R*LS 
S47QE 
BQ(A=0)*B 
UNORM (CAR) 

** — ND 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
lS0»(T(8-ll)*0)»A 
❖SAVE DVR IN WS2 
TRY ANOTHER NORM 
FR IS SL4-T0 L 
EXP— 1 TO L 
TURN ON S6 FOR UFLO 



0355 



01 

: 1101 
* 0*i_0 
- WS«E*l.SA 
L LS*Rv„,*LS 
R BQCA=i)*B 
R SO 0 
L5— — #sje — j 
*DVD TO R 
ZEROS TO DVR EXP 
AND SAVE IN WS13 



DIVIDE CHECK 

11 — 03D3 
E 1111 

B E+WR 
— B W*MD«F 



J6 — OX 
SET IRPT CODE 

IN F 
DVR HAS ZERO FR 



* — 6 



DVR NOT ZERO 

00 03D0 

I 

A R*L 
— C FPZERO 



N6—> 11 
(T{8-31i=0)# 
<F=0WS3*S0 
DVD TO L 
TEST DVD FR FOR 
ZERO 



* NORMALIZE DVD 

11 0387 

E 0000 
A MfL>R 

0 A BCIB FPSL4 

C E(13)*WFN 
— R BG(A«0)*B 
R UNORM (CAR) 
E7 — ** — EG 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
TS0#(T(8-11)*0)*A 



EXP-1 TO R 
FR IS SL4 TO R 



10 ■ 
E 0100 
A R-1*L 

A BCIB FPSL4 j 

D HOT 1*A ODER | 
C S47QE 
R BO(AsO)*B 
R UNURM ( CAR) | 
C8 — — CH 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
iS0 # (T(8-ll)=0)*A 



J 



DVD FR IS SL4 TO L 

EXP-1 TO L 

STAT 5 ON FUR UFLO 



*— 0- 



* NO NORM NEEDED 
01 — 0389 
E 0110 
A L*M 

L WS2+LSA *— 0- 

L LS*L*L5 
C S03«tE 
I 

E9— XX — 
NORM DVR TO L 
NORM DVD TO M 



NORM AND NO UFLO 



* NORM AND UFLO 



'I 

A 
A 
D 
R 
R 

L7. 



11 



038B 



R-14L 

BCIB FPSL4 
HOTUADDER 

BQ(AsO)»B 
UNORM (CAR) 

** — LG 



I 



0386 



FPSL4 



SAVE CAR FROM 1 
BLOCK CAR FROM 8 

iSO«cTca-:ii=o)4A 

* FR IS SL4 TO L 
EXP-l TO L 



10 • 
0100 
M+L*R 
BCIB 
S47QE 
BCMA=0)*B 
UNORM (CAR) 
L8— ** — LH 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
^S0.{T(8~H}s0)*A 



FR IS SL4 TO R 

EXP-1 TO R 

STAT5 ON FOR UFLO 



NO NORM OR UFLO 

01 — 0385 
E 1110 
A R+M 
WS2*LSA 
LS*L*LS 
S03»iE 



L 
C 
I 

N9 — 



XX 



-QG501- 
(XX) 
EXP SUBTR 



NORM DVD TO M 
NORM DVR TO L 



-QT310- 

(OX) 



-JFE 



PROGRAM TRAP 



-Qftf 



-OG800— 
(00) 

RR LONG DIVIDE 



258060 ' 09/29/67 
258430 12/21/67 
250545 01/10/68 



MACH 2050FP 
NAME 

MODE MANUAL 

P.N* 5449066 

TW* CHRP* KTM 



DATE 02/ 
LOG 6 



?/68 



$t«£T 



FLOATING POmi 
RR ANw f^X % 



NEITHER UFLO 



QUOT EXP UFLO 



QG500#eie 

(XX) 

FROM PRENORM 



XX — 0396 
E 1101 
A M-L*RO 
■*A BC 1*FPSR4->F 
D OtLBtMB 
L WS«E*LSA 
L LS*L*LS 
C S47*ED*FP 
R S6 S5 
El— ** 



SAVE CAR FROM 1 

BLOCK CAR FROM 8 

NORM SIGN+S4 

COMPL ADD*S5 

(ED<16>*S6 

(ED=0)*S7 

SET EXP DIF REG 

M( DVD EXP)-L(DVR 

EXP) TO R 
DVR(WITH ZERO EXP) 

TO L 



00 038C 

E 0000 
A R+64C»P0 

A BC1B 

B W+MMB 
L WS2*LSA 
L R*LS 
C E(13)*WFN 
R CSTAT J CAR) 
C2 — ** — CB 
Rf64 TO R AND WS2 

FOR EXP DIF 
ZEROS TO M EXP 



DVD UFLO 



01 038D 

E 0000 
A R+64C*R0 

BC1B 
B W+MMB 
L WS2+LSA 
L R*LS 
C E(13)*WFN 
R BG(A=*0)*B 
R CSTAT (CAR) 
G2 — ** — GB 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 



SAME AS ABOVE 



DVR UFLO 



038E 



10 

E 0000 
A Rf64C*R0 

BC1B 
B W»MMB 
L WS2*LSA 
L R*LS 
C EU3)*WFN 
R BQ<A»1)*B 
R CSTAT (CAR) 
L2— ** —LB 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 



SAME AS ABOVE 



BOTH UFLO 



038F 



STAT 5 IS ON FOR DVD UNDERFLOW 
STAT 6 IS ON FOR DVR UNDERFLOW 



11 

E 0000 

A Rf64C*R0 
—A BC1B 

B W*MMB 

L WS2H.SA 

L R*LS 

C EU3>*WFN 

R CSTAT (CAR) 

Q2— — »QB 
SAME AS ABOVE 

SAVE CAR FROM 1 

BLOCK CAR FROM 8 



00 
0011 
M-LVT 
BCO 

HOT 1* ADDER 
LB«MB+1 
S03QE 



0390 



D 
D 
C 

C4— 

SAVE CAR FROM 0 

52 ON FOR UFLO 

53 ON FOR BYTE 
SET CARRY 
STAT FOR 
COMPARING 
FR 



I* — 0 



XX — CD 



CTL 



QUOT EXP OK 

01 — 0391 
E 0001 
A M-L*T 
0— A BCO 

D HOTI*ADDER 
D LB«MB-fl 
C S03QE 

G4 — XX — GD 
SAVE CAR FROM 0 
S3 ON FOR BYTE CTL 
SET CARRY 
AS ABOVE 



QUOT EXP OK 

10 0392 

E 0001 
A M-L*T 
BCO 

D HOT 1 LADDER 

D LBtMB+1 

C S03QE 

L4 — XX — LD 
SAVE CAR FROM 0 
S3 ON FOR BYTE CTL 
SET CARRY 
AS ABOVE 



QUOT EXP OFLO 

11 — 0393 

E 0010 | 

A MH.*T 
—A BCO I* 

D HOT 1 LADDER I 

D LBtMBfl 

C S47QE - I 

04— XX — QD 



*QUOT EXP OK 

00 0394 

E 0101 
A M*OT 

A BCO 

D HOT 1* ADDER 
D LB«MB+1 
C S03QE 
' C6 — XX — CF 

SAVE CAR FROM 0 
SI ON FOR INVERTED 
SIGN 

S3 ON FOR BYTE CTL 
SET CARRY STAT FOR 
COMPARING FR 



XX 

E 0010 
I 



030B 



*QUQT EXP OFLO 

01 0395 

E 0010 
A M-L*T 
0— A BCO 

D HOT 1* ADDER 
D LB*MB+1 
C S47QE 



G6— 



XX — GF 



*QUOT EXP OFLO 



11 
0010 
M-L*T 
BCO 

HOT 1 LADDER 
LBtMBfl 
S47QE 



0397 



I I 



L6— 



XX 



*QUOT EXP UFLO 

01 0399 

E 0111 | 
A M-L*T 
BCO 

D HQT1*ADDER 

D LBtMBfl 

C S03QE 

G8 — XX — GH 
SAVE CAR FROM 0 
SET CARRY STAT FOR 
COMPARING FR 

51 ON FOR INVERTED 
SIGN 

52 ON FOR UFLO 

53 ON FOR BYJE CTL 



*QUOT EXP UFLO 

10 039A 

E 0111 
A M-L+T 
0- — A BCO 

D HOT 1 LADDER 
D LBtMB+l 
C S03QE 

L8 — XX — LH 
SAVE CAR FROM 0 
SAME AS ABOVE 



C S4 7.tE 



C9— 



XX 



-06502 
(XXI 

DIVIDE LOOP 



*QUQT EXP OK 

11 — 039B 
E 0101 
A M-L*T 
BCO 

D HOT 1 * ADDER 
D LBtMBfl 
C S03QE 
Q8 — XX —QH 
SAVE CAR FROM 0 
SI ON FOR INVERTED SIGN 
S3 ON FOR BYTE CTL 
SET CARRY STAT FOR 
COMPARING FR 



258060 
238430, 



09/29/67 
12/21/67 



MACH 2050FP 
NAME 

MODE MANUAL 

P«N* 5449067 

IBM CORP. SOD 



DATE 12/29/67 
LOG 662 



s*«rr . x < ©gs®* 

VERSION 



EXPONENT 



POINT f>V» CI 



DVR LESS THAN DVD 



COMPL ADD 



QG501«QDE 

(XX) 

FROM EXP 
SUBTRACTION 



SL1*Q *- 



XX 0398 

E 0101 

A M*R 
— *A 

B E*WL 

B WL»G1 

C 0*LSGNS I 

R CSTAT I 

El— *X — EA 
DVD IS SL1 FOR 
PROPER REG* 
ALIGNMENT 
SET Gl=5 FOR LOOP 
COUNT 



I 

A 

-0— -A 



IX 



01 D3 



L*L 

SL4*F 

D 3*LB 
I 
I 

E2 — OX — EB 

DVR SL4 TO L 
SET LB=3 TO ADJ 
EXP IN FW'L STEPS 



OX 01D1 

0001 
R-L*R 

Q*SL*-F 
H0T1*ADDER 
S03QE 

(ZOO) 
X* — EC 
REDUCTION 



R 

E3— 

TRY 1ST 

DVD— DVR TO R SL1 
SPILL TO F 
INVERTED TO 
DEVELOP THE 
QUOT. FR. 



DVR GREATER THAN DVD 



CSTAT IS ON WHEN DVR 
IS LESS THAN DVD 

STAT 3 WILL ALTERNATE DIRECTING QUOT DIGIT TO THE LEFT OR 
RIGHT HALF OF THE BYTE TO M 



DO — 



TRUE ADD* ( HO BIWRUE ADD)+(HO BIT#CMPL ADD) 

COMPL ADD* (NOT ^0 BIT*TRUE ADD ) + ( NOT HQ BIT*COMPL ADD) 



a 

G 
5 



THIS LOOP RETURNS TO 
DEVELOP EACH DIGIT OF THE QUOT UNTIL Gl GOES NEGATIVE 



COMPL 



ADD 
00 - 



039C 



COMPL 



ADD 
XO - 



n 

C6— 



R-L»R 

Q*SL*-F 

WR*G2 
HQT1»ADDER 
S3 (ZOO) 



** — CF 



03B0 



R-L*R 

Q4St_*-F 
H0T1*ADDER 



D 
I 

R i ZOO ) 

E4— X* — €D 
DVD— DVR TO R S^l 



COMPL ADD I DVD— DVR TO R SL1 

XO 03B2 ZEROS TO G2 SO 

I v I HOTl.G-1 CAN BE USED 

TO DECR Gi 



A R-L4R 
G— — A Q*SL*-F * — 0 

D H0T1*ADDER 
I 

r g:=o (zoo) 

E5™ —EE 
DVD— DVR TO R SL1 



TRUE ADD 

XI — — 03B1 

I 

A R+L*R 

Q»SL*-Fl 



TRUE ADD 

Xi 



03 B3 



A R+L*R I 
-A Q»SL»-F| 



(ZOO) I 
X* — oD 
DVD+DVR TO R SL1 



R GI=0 ;Z00) | 
J5— — JE 
DVD+DVR TO R SL1 



TRUE ADD 

01 039D 

I I 
A R+u»R 
0 — —A Q*SL*-F j 

! B WR*G2 
I I 

R S3 <:200) 
G6— — GF 



DVD+DVR TO R 
ZEROS TO G2 SO 
HOTloG-1 CAN BE USED 
TO DECR Gl 



COMPL ADD.DONT LOOP 
10 — - 039E 



I 

A 

0 A 

D 

L 
L 



R-OT | 
a»SL*-F|$— 0 
H0T1*ADDER 
WS2H.SA 
LS»L*LS | 
L6 — XX 
DVD— DVR TO T 
EXP DIF TO L 



TRUE ADD.DONT LOOP 
11 039F 



R+L*T 

0*SL*-F 
WS2*LSA 
LS»L*LS 



L 

V 

06— XX 
DVD+DVR TO " 
EXP DIF TO i_ 



COMPL ADD 

10 — 03A2 
E 000 i 
A R-L*R 

€ A Q*SL»-F 

B MD.F*U MMB*V 
B VL*WL 
B W*MMB 
D HOTltG-1 
D MB+1 
C S03#iE 
R (ZOO) 
C8— X* — CH 
DVD-DVR TO R 
F(QUOT DIGIT) TO MVR 

TO M PER MB 
Gl-I TO GKLOOP CNT) 



TRUE ADD 

11 03A3 

E 0001 
A R+L>R 
O— A Q*SL»-F 
B MD.F»U MMB4V 
B VL*WL 
B W*MMB 
D Gl-1 
D MB+1 
C S03.-tE 
R (ZOO) 
G8 — X# — GH 
DVD+DVR TO R 
FCQUQT DIGIT) TO MVR 

TO M PER MB 
GI-1 TO Gl (LOOP CNT) 



COMPL ADD 

00 03A0 

E 0001 
A R-L*R 

A Q*SL->-F 

B MD«F*U 
B ?»WL 
B W*MMB 
D H0T1.G-1 
C S03QE 
R (ZOO) 
X# — -LH 



DVD-DVR TO R 
FtaUOT DIGIT) TO MVR 
(CROSS) TO M PER MB 
Gl-1 TO Gl (LOOP CNT) 



H.FE 



-QG503- 
(XX> 
POST-NORMALIZE 



03A 



TRUE ADD 
01 • 
E 0001 
A R+L*R 

Q*SL*-F 
B MD.F+U 
B ?*WL 
B W*MMB 

D Gl-1 

C S03QE j 

R :ZOC:| 

Q8 — • x* —an 



DVD+DVR TO R 

F ; QUO' DIGITS TO MVR 

; CROSS i TO M PER MB 
Gl-1 TO Gl :ux3P cnt: 



258060 
258008 
258427 
258430 



09/29/67 
10/20/67 
11/14/67 
12/21/67 



MACH 
NAME 
MODE 
P.N. 

IBM CORF. 



205G*P 

MANUAL 

5449066 

SDD 



DA^E 
LOG 



12/29/67 
662 



SHEET 
VERSION 



FLUTING POINT DVD (H DER.NDE) 
DIVIDE LOOP FOR FU.PG 3 OF 4 



00 
1100 



03AC 



QG502.LFE— - 

(XX) 

FROM DIVIDE 
LOOP 



E 
A 

C 
I 

R S2 
Gl— 



XX 03AB 

0001 
M*L13 

F»FPSL4 
S47. T E 



WO SIGN INVERSION 
00 — 03A4 

A L4L 

L0«S4* 
L FNtMD*LSA 
L LH.S 
R AQ(B*mA 
R SO LB«3 
C3— ~ ■ fofc — cc 
QUOT TO LS PER MD 
(MAY GET CHANGED 
LATER) 



S03oE 
BQ(A»1)*B 
S6 

** 

EXCPNQIA(30)*A 
EXCPNQ <IA( 30 UREF>»& 
FR NOT ZERO«EXP OK 
DO THE I-FETCH 
ROUTINE 



00 — 07150 
E 1110 
B WStE*LSA 
-U— 5 IA+0/2*A 
C E*S47 
L L5*L*LS 
R I-FETCH 

m — AF 



11 

E 0110 



07D3 



SI 

** — GA 
QUOT FR TO L.THE 
SL4 BRINGS LAST 
DIGIT FROM F 



INVERT SIGN 

01 — 03A5 
E 0001 
A L+L 

A L0»tS4* 

FNtMD>LSA 
L*LS 

AQ(B=1 )*A 
S47QE 

SO LB=3 

** — GC 



L 
L 
R 
C 
R 

G3 — 

CHANGE SIGN OF QUOT 
AND STORE PER MD 



INCR EXPONENT 

11 — r 03 AF 

1 L*LO 
— =A BC 1*FPSR4*F 
L FN tMIHLS A 
L L*LS 

R 0 (CAR) 
E5— 0* — €E 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
EXP+1 TO L 
STORE QUOT PER MD 




OVERFLOW 
01 

E 1100 
A L*L 



03AD 



FNtMD*LSA 
L*LS 
S03.tE 



E6— 



11 



L WStE*LSA 
< LS+LH.S 



XX —AH 



XX 
E 1100 
A L*L 

-A LGt54* 
B E+WR 
B W*MDtF 
L FNtMO+LSA 

A9— OX — i 



013? 



~0T3!©- 

tOX) 



«Aff' 



XX 



0136 
R4*F <J 



HfL^T 

BC 1*FPSR4*F 
FN «MD*LSA 
LS*L*LS 
S47*ED*FP 



C9— 



XX 



-QTU O AT E 

(OOtOltlOtll) 
I-fETCH 



I 

A 

r-A 



XX 



01 D2 



GO LOOK AT MASK 
FOR INTERRUPT 



HfL*T 

BC 1*FPSR4*F 
I L FNtMD*LSA 
L LSH>LS 
S47tED*FP 

00 — G 



ZERO FRACTION 

10 — 03AE 



INVERT SIGN 

10 03A6 

E 1100 
A L*L 

L0t-»S4* 
L FNfMD*LSA 
L L*LS 
C S03.tE 
R SO LB*3 



CHANGE SIGN OF QUOT 
AND STORE PER MD 



OH. 
FN *MD*LS A 
L*LS 
IA+0/2*A 
SMIF 
I-FETCH 

## — JE 



SUPPRESS MEMORY 
IF OFF BNDS 
AND iREFETCH 
EXCPNQIA(30)*A 
EXCPNQ ( IA ( 30 ) «REF) *B 
STORE ZERO QUOT 
PER MD 



UNDERFLOW 
00 - 
E 0110 



03A8 



STAT 0 IS ON FOR ZERO DVD 
ST*? 1 IS ON FOR UNDERFLOW 

L»-3 mm tmmm must be increased 



NO SIGN INVERSION 
11 — 03A7 

E 1100 

A L»L 
—A L0«S4* 

L FNtMD*LSA 

L LH.S 

C S03«-*E 

R SO LB=3 

Q3 — ** — QC 
QUOT TO LS PER MD 
(MAY GET CHANGED 
LATER} 




WS*E*LSA 
LS»L*LS 
O+RSGNS 



I G9— 
-0 



-QG409- 



(00) 
TEST MASK 



-CXf 



UNDERFLOW 
00 - 
0110 



L 
C 
I 

J7— XX — JG 
SET ZEROS TO LS 

PER MD 
SET MOVER FN FOR 

AND 



INCR 



I 

A 
-A 
L 
L 
R 



Efk)NENT 
01 03A9 



E 
I 

L 
C 
I 



03B4 



WStE^LSA 

LS*L*LS 

OtRSGNS 



XX — JH 
SAME AS AT LEFT 



L»LO 

BC 1»FPSR4*F *— O- 
FN«MD*LSA I 
L*LS | 
0 (CAR) I 

N7— 0* — NG 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
EXPH TO L AND 
STORE PER MD 



*UFLQ CORRECTED 
GO TO I-FETCH 



-OG41 

(01) 
I-FETCH 



DVD FR WAS ZERO 

10 — 03AA 

1 0*L 
—H. FN «MD*LS A 
L LH.S 
S IA40/2*A 
S SMIF 
R I-FETCH 
57— » —so 
258060 ' 09/29/67 
2$i4-|0 12/21/67 
258545 01/10/68 



SET ZEROS x 0 LS 

PER MD 
SUPPRESS MEMORY 

IF OFF BNDS 

AND -tREFETCH 
EXCPN0IA(30)»A 
EXCPNQ UA( 30 UREFHB 



-QTIOS— — — OLE 
iOOtOltlOtlll 
I-FfTCH 



MACH 
NAME 
MODE 
P*Nt 

IBM CORPt 



2050FP 

MANUAL 

544^06*1 



LOG 



02/22/68 



FLWTIIiG PQIHT 
one t«-mqmiuu_ 126 



I-FETCH-RX 



UOOXX — 033? 

i oooo 

0 !»M 
~*D 0*MB 

L FNtMD*L3A 
L LSH>tS 
C E*S03 
R S3 
A2— » *X — AB 

QPND 2 TO M 
OPNO 1 TO L 



EXPONENT ADD 



IX 



0303 



0344 



B 

L 
L 
C 



W*MMB 
W31*LSA 

t*ts 

S47tED*FF 

XX — AE 
SAVE CAR FROM X 
BLOCK CAR PROM 8 
NORM SI0N*S4 
COMPL ADIHS3 
(ED<16)*56 
(ED*0)*$7 
SET EXP DIP REG 
EXP1+EXP2 TO R 
ZEROS TO M(EXP) 
SET FUPT SON STATS 
L(OPNDl) TO WSX 



00 
E 0100 
A L*R 
-A L0*S4* 
| LLBHI 
B UR^WR 
D 02-1 
L WS1KSA 



__3oE 
A7— XX -<6 

EXPONENT UFLO 
SAME AS BELOW 



* EXPONENT ADD 



I 

A 

B 

L 
L 
C 



0330 
I 



GG010»JEE— 

uiooxx) 

SECOND LEVEL 
I-FETCH-RR 



UOOXX 
E 0000 
A L*M 
—*D 0*MB 

L FN*MD*L$A ] 
L LS*L*L5 I 
C E*503 I 
R AP(B»1)»A i 
R CSTAT MD/JI I 
02— >fc# *—*QB 
QPND 2 TO M 
QPND 1 TO L 
SET STAT 3 OFF 



10 

M4t*R0 

BC1B 

W*MMB 

WSULSA 

L*LS 

547«ED*FP 



0542 



EXCESS 64 CORRECT 

XX — 0341 
E 01X0 j 
A R+64C*L0 ! 

BCIB l*~0« 
B E*WL 
B WL*6l 
D 3*LB 
L WS1H.SA 
L LS4RH.5 
C S030E 1 
R CSTAT (CAR) I 

SAVE CAR FROM I 
BLOCK CAR FROM 8 
EXP D1F -64 TO L 
01*6 FOR LOOP CMT 
0PND1 TO R 
SET LB«3 



NO EXP OFLO OR UFLO 



01 • 
E 0100 
A L+R 

*A L0«54* 



0545 



(OX) 
RX LONG MPV 



-QG800 ■ u > Q BE 

(00) 

RR LONG MPY 



L3<- 



XX 



i EXP1+EXP2 TO R 
! ZEROS TO M(EXP) 
I SET FP STATS 
X L(OPNDl) TO WS1 



SAVE CAR FROM 1 

BLOCK CAR FROM 8 

NORM SIGN*S4 

COMPL ADD*S5 

(ED<16)»S6 

(ED*0)*$7 

SET EXP DIP REO 



INVALID ADDRESS 



E 

* Q.„ in u.p 



11 
0110 

W*MDtF 



0543 



E*WR 



Q3- 



OX **«»QC 



IRPT CODE TO 
GO INTERRUPT 



B LLB*U 
B UR*WR 
L WSl^LSA 
L R*LS 
C S03nE 
G7— XX — G6 
SET NORM SIGN TO 
EXP SUM AND STORE 
IN WSX 
STAT 1 OFF FOR NO 
OFLO 

LO MPLR DIGIT TO W 
(FOR FUTURE 0 TEST) 



NO EXP OFLO OR UFLO 

10 — 0546 
E 0100 
A L»R 

L0«S4* 
B LLB+U 

B UR*WR 
L WSULSA 
L RH.S 
C S03#<*E 
L7— XX *«HL,G 
SAME AS ABOVE 



rnQQ^Q^ umm mm »GGE 

(XX) 

MULTIPLY LOOP 



EXPONENT OFLO 



11 



0347 



A L*R I 

L0*iS4»l — 
B LLB*U i 
B UR*WR| 

L WS1H.SA ] 
L R*LS I 
Q7— XX — QG 
SET INV SIGN TO 
EXP SUM AND STORE 
IN WS1 
LO MPLR DIGIT TO W 



LOADING AFTER THIS PAGE 

STAT 1 IS ON FOR EXP OVERFLOW 
STAT 2 IS ON FOR FLOATING POINT 

OFF FOR FIXED POINT 
STAT 4 IS ON FOR NORMAL SIGN 
STAT 5 IS ON FOR TRUE ADD . 
STAT 6 IS ON FOR EXP DIFF LESS THAN 16 



a 

G 
7 
0 
0 



-ace 



254760 
253449 



12/21/64 I 
09/20/65 J 

I 



MACH 
NAME 
MODE 
P*N* 

IBM CORPt 



C2050 

MANUAL 
5364739 

SDD 



DATE 10/01/65 
LOG 902 



SHEET 
VERSION 



-OT310— 
(OX) 
PROGRAM TRAP 



1 QG700 



FLOATING POINT KJLTIPtY f* 
AND RX FORMAT tLOKi/SNORT 



pp - PARTIAL PRODUCT 



QS800«JIE~ 
(O0«Ol»XQ) 
FIXED POINT 



aG700»GGE— 
(XX) 

FLOATING PT 



MORE MPLR DIGITS 

01 — 055; 

A RtR 
—A F*SR4'»F 
D GX-X 

R R<3X) WR*0 

MPLRfPP TO R SR4 
LOOP CNT-X TO GX 



00 — 0554 
E 0001 
A LH. 

A SRX+F 
C S03»tE 

k F<2) 0 x 

A3— *0 ~Afc 

MPLR BIT*0 

PP TO L SRX 



E 
A 

•0*—A 



00 
0001 
L*L 



054C 



MPLR BIT«l 

10 — 
E 0001 
A M4L+L 



0556 



SRX+F 



SRX+F 



C 503QE 

F(2) 
A5— ## 
MPLR BIT*0 

PP TO L SRX 



OX 



054D 



A L+L 

^^••■^••■••nA SRX+F j^tw^wQ** 

B R3+U 

B UR^WR 
S3 L FNtMO+LSA 

"AE L L+LS 

R BO<A*0)+B 
R GXMBZ S2 

<GI-0)Q(MB«0>+A 



MPLR BIT*0 
PP TO L SRX 
0 NEXT MPLR DIGIT TO 
MOVER FOR ZERO TEST 



054E 



C S03oE 
I 

R F(2) 
E3— *0 

PP+MPCD TO L 



MPLR LO DIGIT*0 



01 — 0549 1 

1 I* 4 
A 0+L I 
—A F4SR4+F 1 
B R3+U 

B UR+WR I 

J2— 01 — JB 

*0 TO L SR4 
BRING NEXT MPLR 
DIGIT TO W 
FOR O-TEST 



MPLR LO BITwO 

00 — 0548 
E 0001 
A 0*L 

SRI+P 

D MBHl 
C S03*iE 
R F(2) 0 
J3— *0 — JC 

0 TO L SRX INTO F 
SET MB«X 



MPLR BIT*X 

10 — 
UE OOOX 
A M4L+L 
—A SRX+F 
C S03QE 

A F<2) S3 
PP+MPCD TO L SRX 



MPLR BIT-X 
XX «- 



054F 



M+L+L 

SRX+F 

R3+U 

UR+WR 
FN»MD+L5A 
L+LS 

BG(A»0)+B 
GXMBZ S2 

(GX»0)Q(M8«0)+A 
PP+MPCD TO L SRX 
NEXT MIER DIGIT TO 
MOVER FOR ZERO TEST 
(THE PP TO LS IS 
USED ON FIXED PT 
OPERATION) 



B 

B 

L 
L 
R 
R 



AFE 



H3LB0OX— 
(I0> 
FIXED FT EXIT 



XX — 054B 
E 00X0 
A R*R 
**H«A FPSR4»F 
B E+WR 
B W67*M0 
D GX-X 
C E(13)+WFN 
R R(3X) WR»0 
N2— — NB 
MPLR SR4 TO R AND F 
SET MB*2 



MIER LO BIT«X 

10 — 054A 
E OOOX 
A M+L 

D MB-X 
C S03nE 
R F(2) 0 
N3— *0 — NC 



MPLR DIGIT*0 SO 
ZERO SKIP 4 BITS RT 
| ox — 0555 

M 
A L+L 

A 5R4+F 
B R3+U 

B UR+WR 
L FNtMD+LSA 
L L+LS 
R BG(A*0)+B 
R GXMBZ 52 

y)&mm> g& mm mJQ 

(Gl»0)ft(MB«0)+A 
PP TO L SR4 
NEXT MPLR DIGIT TO L 



-0 ^FLOATING POINT 
I LOOP IS FINISHED 



XX 



0553 



(HMPCD TO R SRX 
SET MB«X 



R+M 

F*SR4*F 

LMB+U 
U+W 

WS1+LSA 
LS*R+L5 
<T*0)+S3 

XX ~JG 



B 
B 

L 
L 
C 

U?« 

PP TO M SR4 
STAT 3 IS ON IF 
LO FR»0 
EXP SUM TO R 
HO FR DIGIT TO W 
(FOR NORM TEST) 



XX 



0550 



L+RX3 
FN«MD*LSA 
R+LS 
FPZERO 
W»0 

*X 



L 
C 
R 

J8~ #X — UH 
<T(8~3X)«0U 
<F*0)#S3+50 
PP TO R 

TEST FOR 0 FR AND 
STORE IN LS PER MD 
(NORMALIZING MAY 
ALTER THIS LS) 



-aG702~ 
(OXtXX) 
FLOATING PT 
EXIT 



-JHE 



NOTE— 
A LONG WD ZERO TEST IS 
MADE BY FIRST TESTING LO 
WITH (T*0)+S3t WHICH SETS 
S3 ON IF L0*0* 
THE TEST IS COMPLETED BY 
USING FPZERO WHICH TESTS FOR HO 
ZERO FR AND THAT S3 IS NOW QN» 



STAT 2 IS ON FpR FLOATING POINT 
R(BX> IS A TEST FOR A MPLR BIT 
FC2) IS A TEST FOR A MPLR BIT 

G1MBZ TESTS FOR Gl»Ot WHICH IS END OF MPY LOOP 



254760 
255449 



X2/2X/64 
09/20/65 



MACH 
NAME 
MODE 
P»N* 

IBM CORP* 



C2050 

MANUAL 

5364760 

SDD 



DATE 10/01/65 
LOG 902 



SHEET X 0G70X 
VERSION 



FLOATING POINT MULTIPLY 
MPLY LOOP / 



ox 



0505 



Q6701.JHE 

(OXtlX) 

FROM MPY LOOP 



-O— *A 

L 
L 
I 

C 
R 



M+L 

SL4+F 
FN«MDQ1*LSA 
L*LS 



0-H.SGNS 
UNORM G2<0 
Al— aOeaCc —A 
TS0t(8-ll)«0)*A 
SHIFT LESS THAN 
LO PROD TO L SL4 
AND TO LS PER MD 



I 



00 



0580 



A M*L 

FNfMDQl*LSA 
L L*LS 
I 

R SI 1 
A2 — *1 — AB 

*N0 NORMALIZING 
AND NO UFLO 



❖UNSHIFTED LO PROD 
TO L AND LS 



01 
H»L 



I 

A 
I 

L 
L 
I 

E2— 



0581 



FN*MDQ1*LSA 
L*LS 



00 — EB 



#N0 UFLO t DO NORM 



10 



0582 



R-1*R 

BC1B F*FPSL4 
HOT 1 LADDER 
FN*MD»LSA 
R*LS 

SI (CAR) 



J2— 



— JB 



SAVE CAR FROM 1 
BLOCK CAR FROM 8 
HO PROD TO R SL4 
EXP-1 TO R 



EXPONENT UNDERFLOW 



11 — 0583 
E 0010 
A R-UL 
-A BC1B F»FPSL4 
B E*WR 
B W»MMB 
D HQT1»ADDER 
L FNtMD*LSA 
L L»LS 
C 0*LSGNS 



N2~ 



XX — NB 



ZEROS TO Lt TO LS 
MASK FOR IRUPT TO M. 




QED 



(OOtOltlOtlii 
I-FETCH 



STAT 1 IS ON FOR EXPONENT OVERFLOW 

G2 IS NEGATIVE FOR EXPONENT UNDERFLOW 



G2=0 

LO PROD TO L* TO LS 
0100 TO BYTE STATS 



a 

g 

7 

a 

2 



SUPPRESS MEMORY 

IF OFF BNDS 

AND -,REFETCH 
EXCPNQIA(30;»A 
EXCPNQ£IA<30>.REF>*B 

ZEROS TQ L AND LS 
GO DO I-FETCH 



L»L 

SL4*F 
FNtMDQl^LSA 
L»LS 

AQCBsO^A 
0 TZ*BS 

*# ~QF 
EXP OFLO BEING 
REDUCED 

LO FR SL4 TQ LtLS 



I 258060 ' 09/29/6? | MACH 2050FP 

258068 10/25/6? \ NAME 

I 258427 11/07/67 I MODE MANUAL 

I 258430 11/27/67 P.N# 5449070 



DATE 
LOG 



02/22/68 
694 



FLOATING PUIN 



SHEET 
VERSION 

MULTIPLY 



1 QG702 



0G700.ABE— 

(OX) 

RX MULTIPLY 



QG500.ABE- 

<OX) 

RX DIVIDE 



QG700.QBE— ■ 
(00) 

RR MULTIPLY 



QG500.QAE- 

(00) , 
RR DIVIDE 



OX 

E 1101 
A M*R 
-*D MB+1 
L WS«EH.SA 
L R*LS 



0501 



Al— 



XX — AA 



XFER HO MPCD IN M 

TO R« WS13. 
INCR MB TO 1, 



OX — - 09D4 
E 1101 
A L*M 
-*D Gl-1 
D MB+1 
L WS%E*LSA 
L L*LS 
El— XX — EA 



XFER HO DVR IN L 

TO M. 
STORE HO DVR IN L 

IN WS13. 
DECR Gl TO MINUS 
TO INDICATE DIVIDE 
INCR MB TO 1* 



00 — 
E 1000 
A L*M 
-*D Gl-1 
D 0*MB 
C S03.iE 
I 



350 



Jl— 



00 — JA 



XFER HO DVR IN L 
TO M. 

DECR Gl TO MINUS 
TO INDICATE DIVIDE. 
RESET STAT 0. 



L 
C 
I 

A2— 



XX 

0100 
M^H 

WS1H.SA 
LS»R»LS 
E*BS 



05D4 



XX 



-AB 



FETCH 0P2 ADR TO R 
XFER HO MPCD/ DVR 
IN M TO H. 
EMIT 0100 TO BYTE 
STATS FOR HO 
FRACTION BYTE 
2ER0 TEST. 



XX — — 05B0 
E 1101 | 
A R+4*A j 
— L WS*E»LSA 
L LS*R*LS 
C S47tiE 
R UNORM T13=0 
A3—— —AC 

tSo#<t(8-h>«o)*a 
adr of lo 0p2 wd 

(R+4> TO SAR 
TURN OFF STAT 5 

FOR OFLO TEST 
FETCH HO MPCD/DVR 

TO R FROM WS13 
BR ON BITS 8-1 It 

8-31 OF MPCD/DVR=0 
(STAT 0 IS a 0) 



10 
D*L 



0596 



A4 — 



XX — AD 



LO MPCD/DVR TO L 



XX — 051F 
E 1111 
A L*L 

A SL4*F |* i 

B MMB*V 
B V»W 
L WS«E*LSA 
L L*LS 

A5 — 10 — AE 
SHIFT LO MPCD/DVR 
L4 TO L AND WS15 

! XX 0591 

A LVT 



0594 



MPCD/DVR 
NORMALIZED 
00 - 
E 1111 
B MD*F*U 

U»W 
B W»MMB 
D D*L 

L WStE*LSA 

L L»LS 

C R(0:>RSGNS 

E3 — 01 
LO MPCD/DVR TO L 
AND WS15. 
XFER 0P1 GEN REG 
ADR IN MD TO M 
REG BYTE 1. 



11 

I 

D D»L 



0597 



00 — 0540 
0100 
M*H 
M&fl 
L FNt JQ1H.SA 
L LS*L*LS 
„ C E*BS 

R UNORM T13*0 
J2— — JB 
lS0«(T(8-ll)a0)^A 
FETCH LO MPCD/DVR 
PER 0P2 ADR IN J 
INCR MB TO 1 
EMIT 0100 TO BYTE 
STATS FOR ZERO TEST 
OF FRACTION HO BYTE 
XFER HO MPCD/DVR IN 
M TO H. BR ON 8-11 
AND 8-31=0 (STATO=0) 



00 — 

1111 

H*R 

MD«F*U 
B U*W 
B W*MMB 
L WS«E*LSA 
L L*LS 
C S47.iE 
J3 — XX t-\JC 
XFER HO MPCD/DVR IN 
H TO R. 

STORE LO MPCD/DVR 
IN L TO WS15. 
XFER 0P2 GEN REG 
ADR IN MD TO M 
BYTE 1. TN OFF 
STATS FOR NO UFLO 



E4— 



C5-— XX — CE 
LO MPCD/DVR FROM 
L TO T FQR 0 TEST 



XX —ED 



LO MPCD/DVR TO 



XX 051D 

E 1111 
A L*L 

-A SL4*F 
B MMB*V 
B V+W 
L WStE*LSA 
L L*LS 
R AQ(B*O^A 
R G1<0 T=0 
E5— ** —EE 



SHIFT LO MPCD/DVR 
L4 IN i_ TO L AND F 

STORE IN WS15 

HO FRACTION BYTE 
IN M TO MOVER 

BR ON DIVIDE (Gl<0) 



11 - 
E 1111 
B 

•B W*MD«F 



A7 — 



- 059B 
E»WR 

OX — AG 



0»L 



*1 



ZERO DIVISOR 

GO TO DIVIDE CHECK 

TRAP. 



I 

A 
-I 

L 
L 
I 

A8 — 



01 



0599 



FNtMDQl^LSA 
L»LS 

XX — AH 



-QG801 1 AHE 

(XX) ZERO 
MULTIPLICAND 



ZERO MULTIPLICAND 
STORE ZEROS IN LO 
FP REG PER ADR IN MD 



-AGF 



-QT310— 
(OX) 
PROGRAM TRAP 



10 — 059A 
1101 
A M~1*R 

BC1B F*FPSL4 
B MDtFMJ 
•B l»W 
B W*MMB 
D HOT 1 LADDER 
WS*E*LSA 
R*LS 

R(0)*RSGNS 
W=0 (CAR) 



L 
L 
C 
R 

E6— 



** — EF 



SAVE CAR FROM 1 
BLOCK CAR FROM 8 
SEE NOTE 1 




00 - 
E 0100 
A R*H 
-C S47QE 



059C 



| XX — 

L-€ 1101 



Ml— XX — NA 
MPCD/DVR UFLO 
XFER HO MPCD/DVR 
IN R TO H 
TURN ON 0P2 UFLO 
STAT 5. 



XX 
1101 

WS*E*LSA 
R*LS 

R(0)»RSGNS 



0595 



N2 — 



15 



XFER HO MPCD/DVR 
IN M TO R. 
RESET STATS FOR 
SUBSEQUENT -UFLO 
TEST 



SHIFT LO MPCD/DVR 
L4 TO L AND F. 
STORE L TO WS15. 



XFER HO MPCD/DVR 
IN M TO R. 
M HO FRACTION 
BYTE TO MOVER FQR 
ZERO TEST. 
TN OFF STAT5 FOR 
SUBSEQUENT UFLO 
TEST. 



XX — NB 



STORE HO MPCD/DVR 
IN R TO WS13. 



01 059D 

I I 
A R*H 

rl 

I I 

N3 — XX — NC 
XFER HO MPCD/DVR 
FROM R TO H 



XX — 0521 
0010 
M»R 
WR*F 

FN*MDQ1*LSA 
LS*L*LS 
S47 #1 E 

XX — ND 



I 

A 
-D 

L 
L 
C 

N5 



XX 



0598 



L»M 

3*LB«MB 
FN*MD*LSA 
LS*L*LS 
(T=0)»S3 
— XX — NE 



XFER WD WITH 0PND1 
GEN REG ADR IN M 
BYTE 1 TO R. 
FETCH LO 0PND2 
(MPLR/DVD) PER 
MD TO L. RESET 
0P2 UFLO STAT6 
FOR FUTURE TEST. 



FETCH HO 0PND1 
(MPLR/DVD) PER MD 
TO U. 

XFER LO MPLR/DVD 
FROM L TO M. 
TN ON STAT3 IF LO 
MPLR/DVD = 0. 
SET LB AND MB * 3 



XX — 05A0 

E 0000 

A L»T 
— B MD*F»U 

B U*W 

B WL*J 

L WStE»LSA 

L R*LS 

C FPZERO 

N6 — XX — NF 
(T(8-31)»0>. 

(F»0).S3*S0 
HO MPLR/DVD TO T 
FOR ZERO TEST. 
IF BITS 8-llaO 
AND STAT3 ON TN 
ON STATO FOR ZERO 
MPLR/DVD. 
XFER 0P1 GEN REG 
ADR FROM MD TO J. 
QP1 GR ADR TO WSO 



059E 



10 

0-E 1111 
L*L 

SL4»F 
WS«E+LSA 
LH.S 
S47QE 
TZ*BS 



E7— 



IX 050B 

E 1101 
A R-1*R 
*— 0— A BC1B F*FPSL4 
D HOT l* ADDER 
L WStEH.SA 
L R*LS 

R 1 (CAR) 
#X — EG E8— 1* —EH 

SAVE CAR FROM 1 
BLOCK CAR FROM 8 



LATCH ZERO TEST 
PER BYTE STATS 

MPCD/DVR UFLO 

SHIFT LO MPCD/DVR 
L4 TO LAND F* 

L TO WS15* 

1*STAT5 FOR 
MPCD/DVR UFLO. 



11 059F 
»-€ 1111 
A L»L 

SL4*F 
L WS«E»LSA 
L L*LS 
R TZ#BS | 
J7— #X — JG 
LATCH ZERO TEST 
PER BYTE STATS 
SHIFT LO MPCD/DVR 
L4 TO L AND F. 
STORE L TO WS15. 
BR ON HO FRACTION 
BYTE * 0. 



SHIFT HO MPCD/DVR 
L4 TO R AND DECR 
EXP. 

STORE R TO WS13. 
BR ON NO EXP UFLO 



0509 



OX 
1101 
R-l^R 

BC1B F»FPSL4 
HOT 1 LADDER 
WS«E*LSA 
R»LS 

0 (CAR) 

0* — JH 
FROM 1 



NOTE i:- 

SHIFT HO MPCD/DVR 
L4 IN M TO R AND 
DECR EXP BY I. 
SET R SIGN STAT TO 
BIT 0 OF HO MPCD/DVR 
IN R REG. 
STORE R TO WS13 
XFER GEN REG ADR 
OF 0P1 IN MD TO M 
BR ON HO FRAC BYTE 
ZERO AND NO EXP 
UFLO 



D 
L 
L 
R 

J8 — 
SAVE CAR 

BLOCK CAR FROM 8 



SHIFT HO MPCD/DVR 
L4 TO R AND DECR 
EXP BY 1. 
STORE R TO WS13. 
BR ON NO EXP UFLO 



XX 0523 

E 0011 
A L»R 
— B E+WR * 

B WR»G2 
L WStE»LSA 
L L*LS 
C L(0)*LSGNS 
R BQ<A=0)*B 
R UNORM T2#BS 
N7— ** —H\)G 

nS0.(T(8-U)*0)»A 
XFER HO MPLR/DVD 
TO R FROM L» 
STORE L TO WS3 
SET G2«3 TO COUNT 
LO MPLR BYTES. 
SET L SIGN STAT 
TO BIT 0 OF L REG 



-QG801— 
(01»10«11> 
CONTINUE 
PRENORM 



-N6E 



Q 
G 
8 
0 
0 



258060 
258427 
258430 



09/29/67 
11/07/67 
12/21/67 



MACH 2050FP 
NAME 

MODE MANUAL 

P.N. 5449071 

IBM CORP. SDD 



DATE 12/29/67 
LOG 662 



SHEET 1 
VERSION 



QGSOO 



FP LONG MULTIPLY* DIVIDE 
(MDR« MDi DDR. DD) * PRENORM 



QGSQO*NGE— 
(OltlOtll) 



. 11 

A M*M 
-*A 



Al— 



05A3 



$L4*F 



XX — AA 



MPLR/DVD HAS AT 
LEAST TWO HIGH 
ORDER ZERO DIGITS 
SHIFT LO MPLR/DVD 
L4 TO M. 



10 

I 

A M*M 



El— 



05A2 



SL44F 



XO — EA 




05BC 



SL4*F * — 0- 



TZ*BS 
X* — AC 



MPLR/DVD UNDERFLOW 
TN ON STAT 6* 
SHIFT LO MPLR/DVD 
L4 TO M. 
BR ON TZ*BS 
(ANOTHER SHIFT 
NEEDED 5 . 



MPLR/DVD HAS ONLY 
ONE HO ZERO DIGIT 
SHIFT LO MPLR/DVD 
L4 TO M. 



XX 0525 

E 0011 
A R-1*R 

BC1B F+FPSL4 
D HOmADDER 
L WS«E*LSA 
L R+LS 

R (CAR) 
E2— X* — EB 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 

SHIFT HO MPL.R/DVD 
L4 TO R. DECR EXP 
STORE R IN WS3. 



XI 

I 

A M*M 
-A 



05BD 

SL4*F 



R 

E3- 



TZ*BS 
X* — €C 



XO 05 BE 

0011 
R-1*L 

BC1B F*FPSL4 
H0T1*ADDER 
WS«E»LSA |*i 
L*LS 

(CAR) 
X* — AD 
1 



XO 
0010 
M*M 



05C0 



L 
R 

A4 — 

SAVE CAR FROM 
B^OCK CAR FROM 8 



SHIFT HO MPLR/DVD 
i-4 TO l. DECR EXP 
STORE L TO WS3. 



05BF 



SHIFT LO MPuR/DVD 
L4 TO M. BR ON 
TZ*BS (ANOTHER 

SHIFT needed:.. 



XI « 
0011 
R-UR 

BC1B F*FPSL4 
H0T14ADDER 
WS*E*LSA 
R*LS 

'CAR: 
X* —ED 



D 
L 
L 
R 

E4— 

SAVE CAR FROM 1 
BLOCK CAR FROM 8 



C S47QE 



SL4*F 



* — 0- 



R TZ*BS| 
A 5**"** X* — — -AE 
MPLR/DVD UNDERFLOW 
TN ON STAT 6. 
SHIFT LO MPLR/DVD 
L4 TO M. BR ON 
TZ*BS (ANOTHER 
SHIFT NEEDED; . 



XI 

I 

A M->M 
i-A 



05C1 



SL44F 



R 

E5— 



TZ*BS 
X* —EE 



XO — 05C2 
0011 
R~1»L 

BC1B F»FPSL4 
H0T1*ADDER 
WStE*LSA 
L*LS 

(CAR) 
X* — AF 
1 



XO - 

0010 
S47QE 



05C4 



D 
L 
L 
R 

A6— 
SAVE CAR FROM 
BLOCK CAR FROM 8 
SHIFT HO MPLR/DVD 
L4 TO L. DECR EXP 
STORE L TO WS3. 



A 7— 



XI — AG 



MPLR/DVD UNDERFLOW 
TN ON STAT 6* 



XI 



05C3 



R-1*R 

BC1B F*FPSL4 
H0T14ADDER 



I XI 

1101 



SHIFT uO MPLR/DVD 
*-4 TO M. 



SHIFT HO MPLR/DVD 
^4 TO R. DECR EXP 
STORE R TO WS3. 



D 
I 

R (CAR) 
E6— X* — €F 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
SHIFT HO MPLR/DVD 
L4 TO R. DECR EXP 



XI 
1101 
H*R 

S03.-tE 



05C5 



R G1<0 
E7— 



0 

*0 —EG 



-QG900— 
(10) 
DIVIDE 



XFER HO MPCD/DVR 

FROM H TO R 
RESET STATS 0»lt3 
BR ON G1<0 (DIVIDE J 



ADD MPLR/DVD EXP 
TO MPCD/DVR EXP 
TO R. 

FETCH LO MPCD/DVR 
FROM WS15 TO L. 
BR ON MPCD/DVR AND 
MPLR/DVD UNDERFLOW. 



00 — 03B8 
1111 
R4L*R0 
BC1B 

WSiEtLSA 
LS-*L*LS 
C S47*ED*FP 
R S6 S5 
E9— &b —EI 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
NORM SIGN*S4 
COMPL ADD+S5 
<ED<16)*S6 
(ED«0)*S7 
SET EXP DIF REG 



-QG900— 
(10) 
DIVIDE 



-JAC 



01 — 

1101 

WStE*LSA 
LS»R*LS 



E 
L 

"V 

R 
R 

Jl— 



05A1 



AQ(B=1>*A 
G1<0 SO 

— JA 



I 

A 
-I 

L 
L 
I 

J2 — 



11 
0*L 



03BB 



FN»MDQ1*LSA 
L*LS 

XX 



XX 



527 



JB 



MPLR/DVD EITHER 
NORMALIZED OR ALL 
ZEROS • 



ZERO MULTIPLIER 
STORE ZEROS FROM 
L TO LO FL PT REG 



FN«MD*LSA 
L*^S 

IA+0/2*A 
SMIF 
I-"FETCH 

*— — jc 



s 

R 

j; 

SUPPRESS MEMORY 
IF OFF BNDS 
AND -REFETCH 
EXCPNQIAC30)->A 
EXCPN0(IA(30).REF)*B 



STORE ZEROS TO HO 

FL PT REG. 

GO TO I FETCH. 



01 05A9 

E 0100 *— 0- 
A R+64C»R0 | 

0 A BC1B 

L WS*E*LSA 
i. R»LS 

r bq:a=o^b 
r cstat (cari 

J4-^ " — JD 
SAVE CAR FROM 1 
BuOCK CAR FROM 8 



QG800.AHE— 
(XX) ZERO 
MULTIPLICAND 



COMMENTS- 
EXPONENT OVERFLOW 
IS INDICATED BY 
SETTING LB=0. A 
POST NORMALIZATION 
AT END OF MULTIPLY 
MAY BRING EXPONENT 
BACK INTO RANGE 



SUBTRACT 64 FROM 
EXP SUM FOR EXP 
EXCESS 64 IN R. 
STORE R TO WS4. 



10 — 05AA 
E 0100 
A R+64C*R0 

BC1B 
L WS«E*LSA 
L R*LS 
R BQ(A=0)*B 
R CSTAT (CAR) 
N4— ** — ND 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 

LIKE ABOVE 



10 - 
0001 

S47QE 



05B2 



„5 — 10 — JE 
EXP UNDERFLOW. 



11 
1101 
0»R0 



** UNDERFLOW ** 



11 

0100 

R+64C*R0 
BC1B 

WStE»LSA 
R*L5 



05AB 



a 

G 
8 
0 

1 



E 
A 
-I 

L 
L 
I 

N5 — 



05 B3 



WStE*LSA 
R*LS 



XX — NE 



SET EXP TO ZERO 
STORE HO MPCD/DVR 
TO WS13. 



00 - 

E 0001 
I I 

l-C S47.-E 

I 
I 

J6— 



05A8 



XX 



XX — 05CA 
E 0100 I 
A R+64C*R0 
-—A BC1B * — 0- 
L WS*E*LSA 
L R»LS I 
R CSTAT (CAR; I 
J 7— — jg 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
SUBTRACT 64 FROM 
EXP SUM FOR EXP 
EXCESS 64 IN R. 
STORE R TO WS4. 



XX 
0001 



05CB 



"0-C S47.^E 
I 



N6— 



01 

1101 
0*R0 

WS»E»LSA 

R*LS 

S03.iE 



05AD 



XX — JH 



SET EXP TO ZERO 
STORE HO MPCD/DVR 
TO WS13. 



I J" 
I 



10 
1101 
0*R0 

WStE*LSA 
R*LS 



05AE 



XX — JI 



SET EXP TO ZERO 
STORE HO MPCD/DVR 
TO WS13. 



-QG805 

(XX) 

GENERATE 
MULTIPLES 



-NF£ 



00 - 

E 0001 
I 

S47QE 



05AC 



XX — NF 



N8— 10 
EXP UNDERFLOW. 



! » 

E 1101 
A 0»R0 
l~-n 0*LB 



05AF 



-D 0*LB 
L WS«E*LSA 
L R*LS 

N9 — XX — NI 

EXP OVERFLOW 
SET LB TO 0 FOR 
OFLO INDICATION 
SET EXP TO ZERO 
STORE HO MPCD/DVR 
TO WS13. 



-JCF 



-QT105- 
(OOtOltlOUl) 
I-^ETCH 



LIKE BLOCK JE 

01 - 
E 0001 

— C S47QE 



05B1 



S4— 



01 — SD 



S5 — 



10 — SE 



258060 
258430 



09/29/67 
12/21/67 



MACH 
NAME 
MODE 
P.N. 

IBM CORP. 



2050FP 

MANUAL 
5449072 

SDD 



DATE 12/29/67 
LOG 662 



SHEET 
VERSION 



1 QG801 



FP LONG MULT I PLY t DIVIDE 
MIER* DVD PRE NORM* EXP ARITH 



Q6805«EGE ■ 
(OXtlX) 

GENERATION OF 
MULTIPLES 



Q 

G 

i 

2 



QG803.CAB- 

(OOllOX) 

(OlOOOX) 

(OIOIOX) 

(OlllOX) 

UOOOOX) 

(10010X) 

(10110X) 

(llOOOX) 

(XllOOX) 

(UOIOX) 

(11U0X) 

NO BORROW 

(OOIOIX) 

(OOillX) 

(OIOOIXJ 

<01101X) 

(OUUX) 

(10001X) 

UOIOXX) 

(xoxiix) 

(11001X) 

Uionx; 

U1101X) 
BORROW 



0G420.CBE- 
(XX) 



OX — 050D 
E 1000 
A 0*H 
O— «*B MDtFHJ 

B ?*WR 
B WR*F 
D G-l 
C S47 #1 E 
R F*RQAR 
R SO 

A2 »»»»»X — AB 
PLUS SIGN* 
TN OFF STAT 4. 
ZEROS TO H (lO 
PRODUCT ) § DECR G2 
XFER NEXT MPLR I 
FROM MD TO F AND 
BR ON BORROW STAT 
Ot MPLR IN F. | 



IX - 
1000 
0*H 
r-B MDtFHJ 
B 

WR*F 
G-l 
S47QE 
F+ROAR 

SO 



050F 



4- 



?*WR 



MPLR=Ct BORROW 



11001X 
E 1000 
B E*WL 
0— *B WL*J 

L WStE*LSA 
L LS*L*LS 



0532 



I 

El— 



XX — EA 



LO 2X MPCD TO L 
ADR OF HO MPCD TO 



MPLR«Df NO BORROW 

11010X 0534 

E 1000 
B E*WL 
^-B WL*J 
L WSiE*LSA 
L LS*L*LS 
C S03QE 
E2— XX — 



LO 2X MPCD TO L 
ADR OF HO MPCD TO ^ 
TN ON BORROW STAT 0 



B 
D 

C 
R 
R 

MINUS SIGN* 
TN ON STAT 4. 
ZEROS TO H ilO 
PRODUCT ). DECR G 
COUNTER. XFER 
NEXT MPLR DIGIT 
IN MD TO F AND BR 
ON BORROW STAT 0| 
AND MPLR IN G« I 
O 



WORKING STORE 
WSO= ADR OF FL PT 
REG FOR DPI. 
WS1»L0 6X MPCD 
WS2«H0 6X MPCD 
WS8»L0 2X MPCD 
WS9*H0 2X % MPCD 
WS12*LQ IX MPCD 
WS13«H0 IX MPCD 
WS11«ALL ZEROS 



COMMENTS 

STATO ON IS BORROW 
STAT2 IS RIGHT/LEFT 
STAT FOR MPLR DIGIT 
SELECT ON IS LEFT 



11 



05D7 



I 

A H-OH 
-A BCO F*SR4*F 
D H0T1»ADDER 
L FN»JQ1*LSA 
L LS*L*LS 
A7— 11 —AG 



XX 05CC 

E 1100 
A H—L*H 

BCO 
B E*Wl 
B WL*o 

D H0T14ADDER 
L FN«^Ql*i-SA 
L LSX.**-S 
E3— XX 
SAVE CAR FROM 0 
LO PRODUCT MINUS 
2X LO MPCD TO H. 
HO 2X MPCD TO 
ADR OF LO IX MPCD 
TO I 



MPLR=3* BORROW 

00111X — 050E j 



E 1000 

A H¥~+H 
A BCO 
B E*WL 
B WL*u 
L WS2*LSA 
L LS*L*LS 
C S03.-E 
E4 — XX — ED 
SAVE CAR FROM 0 
ADD .0 6X MPCD TO 
PROD IN H. HO 6X 
MPCD TO v.. TN OFF 
BORROW STAT* ADR 
OF LO 2X MPCD TO . 



MPLR*4« NO BORROW 

OlOOOX 0510 

E 1000 
A H+L*H 
A BCO 
B E*WL 
0— B WL+o 

L WS2*uSA 
L LS*L*LS 
E5— XX —EE 
ADD LO 6X MPCD TO 
PRODUCT IN H* 
HQ 6X MPCD TO L. 
ADR OF LO 2X MPCD 
TO 



MPLR»8t BORROW 



4= 



10001 X 



0522 



1100 
H— L*H 
BCO 
B E»WL 
B WL»J 

D HOT 1* ADDER 
L WS2H.SA 
L LS»L+LS 
Jl — XX — „A 
SAVE CAR FROM 0 

SUBTRACT LO 6X MPCD 
FROM PRODUCT IN H. 
HO 6X MPCD TO L# 
ADR OF LO IX MPCD 
TO J. 



1 #MP_R=9i NO BORROW 
I 10010X — 0524 
1-4-E 11 



1100 



A H-L*H 
•J A BCO 
B E*WL 
B WL*J 

D H0T1 LADDER 
L WS2*LSA 
L LS*L*LS 
C S03QE 

u2— XX — uB 
SAVE CAR FROM 0 

SUBTRACT LO 6X MPCD 

FROM PRODUCT IN H. 

HO 6X MPCD TO L. 

ADR OF LO IX MPCD 

TO J. TN ON 

BORROW STAT 0. 



*MPLR=Dt BORROW 
I 11011X — 0536 
-J E 1000 
B E»WL 

B WL*w 

L WS«E*LSA 
L LS*-*LS 

R ao;b*o>*a 

R S2 G2<T0 

^3— m — jc 

LO 2X MPCD TO L* 
ADR OF LO 2X MPCD 
TO um 



( #MP, 



M4* 



BORROW 
— 052A 



MPLR=2t BORROW 
OOIOIX — 050A 
E 1000 
B E»WL 
0— B WL*J 

L WStE^LSA 
L LS*L*LS 
C S03.nE 
Mi— XX — NA 

LO 2X MPCD TO L. 
ADR OF LO 2X MPCD 
TO J. 

TN OFF BORROW 
STAT 0. 



j MP^ l 



MPLR=3i NO BORROW 
00110X — 050C 
1000 | 
B E»WL 

B WL»J !« 
L WStE*LSA 
L LS*L*LS 



N2- 



XX — NB 



LO 2X MPCD TO L. 
ADR OF LO 2X MPCD 
TO J. 



XX — 053B 
E 1100 
A H40H 

A BCO 

B E»WL 
B WL»J 

L FNt JQ1*LSA 

L LSH.H.S 

N3 — XX — NC 
ADD LO 2X MPCD TO 
PRODUCT IN Ht 
HO 2X MPCD TO L. 
ADR OF LO IX MPCD 
TO J« 



MPLR=Et NO BORROW 
LO 2X MPCD TQ Lt 
TN ON BORROW STAT 
11100X — 0538 
E 1000 
B E*WL 
WL*J 
L WStEH.SA 
L LSH>LS 
C S03QE 
R AQ(B=0)+A 
R S2 
SI— 



G2<0 
#* — SA 



I mru. 
' 0 LO 



1100 
E»\A. 



MPLR*Et BORROW 
LO IX MPCD TO L 

11101X 053A 

E 
B 

WL*J 

WStE^LSA 
LS*L*LS 
AQ<B«0)*A 
S2 G2<0 

m — SB 



■43 
L 

L 
R 
R 

S2— 



J 



«MP^R«A9 
iOiOIX 
1100 
A H~_*H 
A BCO 
B E*WL 
B WL^w 

D H0T14ADDER 
L WS2^LSA 
L LS^L^LS 
u4— XX - 
SAVE CAR FROM 
SUBTRACT lO 
FROM PRODUCT IN H. 
HO 6X MPCD TO u. 
ADR OF lO IX MPCD 
TO J* 



I MP^R=Bt NO BORROW 



052C 



0 

6X MPCD 



L 

C 



J 



I 



C1I0X 
€ 1100 
A H-L*H 
A BCC 
B E*WL 
B WL*J 

D HOTi^ADDER I 
WS2+LSA 
LS^L^LS j 
S03QE I 
5— XX — 
SAVE CAR FROM 0 
SUBTRACT LO 6X MPCD 
FROM PRODUCT IN H. 
HO 6X MPCD TO ^ 
ADR OF LO IX MPCD 
TO TN ON 
BORROW STAT 0. 



MPLR»4» BORROW 
01001X — 0512 
E 1100 
A H+L*H 

BCO 
B E*WL 
B WL^J 
L WS2*LSA 
L LS*L->LS 
C S03#^E 
E6— XX — EF 
SAVE CAR FROM 0 
ADD LO 6X MPCD TO 
PROD IN H. HO 6X 
MPCD TO L» TN OFF 
BORROW STAT. ADR 
OF LO IX MPCD TO 



MPLRS5* NO BORROW 

OIOIOX — - 0514 

E 1100 

A H+L*H 
—A BCO 

B E»WL 

B WL*J 

L WS2*LSA 

L LS^L^LS 

E7 — XX — €G 
ADD LO 6X MPCD TO 
PRODUCT IN H. 
HO 6X MPCD TO L# 
ADR OF lO IX MPCD 
TO J. 



MPLR*Ct NO BORROW 

llOOOX 0530 

E 1000 
A H-L»H 
-A BCO 
B E»WL 
B WL*J 

D HOT 1 ♦ADDER 
L WS2*LSA 
L LS^L^LS 
C S03QE 
E8 — XX —EH 
SAVE CAR FROM 0 
SUB LO 6X MPCD 
ADR OF LO 2X TO J 
TN ON BORROW STAT 



MPi_R*B« BORROW 
10111X = 052E 



1000 
A H-„*H 
— =A BCO 
B E+WL 
B WL*J 

D HOTl^ADDER 
L WS2*LSA 
L LS*L*LS 
J6— XX — JF 
SAVE CAR FROM 0 



XX 



05CD 



R-L*R 

CSTAT»ADDER 
L FN»J->LSA 
L LS»L*LS 
R AQiB=0;«>A 
R S2 G2<0 
J7 — — JG 
SUBTRACT HO MPCD 
FROM PRODUCT IN R 



SUBTRACT LO 6X MPCD LO IX MPCD TO L. 

FROM PRODUCT IN H* 

HO 6X MPCD TO L# 

ADR OF LO 2X MPCD r ' 

TO J. | 



A 
D 
L 
L 
R 
R 



XX 



0537 



R|L4R 

CSTAT^ADDER -0 
FNt J*LSA 
LS->L^LS 
AO(B=0)*A 
S2 G2<0 
J8— s«o}c — JH 
ADD HO 6X MPCD TO 
PRODUCT IN R. 
LO 2X MPCD TO L. 



I 



XX 



05CE 



A H-L*H 
— -A BCO F*SR4 
D HOTl^ADDER 
L FNt JQ1*LSA 
L LS^L-^LS 
R S2 G2<T0 
j9— —Jl 
SAVE CAR FROM 0 
SUBTRACT LO MPCD 
FROM PRODUCT AND 
SR4 TO H. 
HO MPCD PER w4l 
TO L. 



MPtRs6« BORROW 

01101X — 051A 
E 1100 

A H+L*H 

A BCO 

B E»WL 

B WL*J 

L WS2»LSA 

L LS^L^LS 

C S03.tE 

N4 — XX — f\JD 
SAVE CAR FROM 0 

ADD LO 6X MPCD 

HO 6X MPCD TO L 

ADR OF LO IX TO J 

TN OFF BORROW STAT 

■ ■ Q ~ 



MPLR-7t NO BORROW I 



OlllOX — 051C 
— E 1100 
A H+L*H 
A ECO 
B E*WL 
B WL*J 
L WS2->LSA 
L LS*L*LS 
N5 — XX — NE 
ADD LO 6X MPCD TO 
PRODUCT IN H. 
HO 6X MPCD TO L# 
ADR OF LO IX MPCD 
TO J. 



I 



iORRQW MPLR»8t NO BORROW 

— - 051E 10000X — - 0520 

E 1000 



MPLR-7t BORROW 
OllliX -— 051E 
1000 
H4l*H 
BCO 
E*Ww, 
WL^J 
WS2*LSA 

S03tiE 
N6 — XX — NF 
SAVE CAR FROM 0 
ADD LO 6X MPCD 
HQ 6X MPCD TO L 
ADR OF LO 2X TO J 
TN OFF BORROW STAT 

- ■ ■ 0 - 



A 
A 
B 
B 
L 
L 

N7 



h4*l*h 

BCO 
E*WL 
WL">J 
WS2*LSA 
LS*L»LS 

XX — NG 
TO 



LO IX MPCD TO L 
TN ON BORROW STAT 

11110X — 053C 

E 1100 

B E*WL 
— B WL*J 

L WStE^LSA 

L LS*L*LS 

C S030E 

R AQ(B»0)*A 
' R S2 8 -- G2<0 



01 



05D5 



S4— 



ADD LO 6X MPCD 
PRODUCT IN H# 
HO 6X MPCD TO L* 
ADR OF LO 2X MPCD 
TO J« 



I 

A 
**A 

L 
L 
R 

N9- 



XX 



053F 



HfL*H 

BCO F+SR4 
FN«J01«>LSA 
LS^L^LS 
S2 G2<0 

m — ni 



-QG803 
(11) 



-QG80 3 
(OOOOOX) 
(01100X) 
(10100X) 
NO BORROW 
(01011X) 
(10011X) 
(1U11X) 
BORROW 



-€AB 



-QG420- 

(XX) 



-QG803— JIE 
(OOfOltlOtll) 
SUBTRACT HO 
MCD 



-QG420— 
( 00001 X) 
(00011X) 
BORROW 
(00010X) 
(00100X) 
NO BORROW 



-EAB 



SAVE CAR FROM 0 
ADD LO MPCD TO 
PROD AND SR4 TO H 
H MPCD TO L. 
BR ON RIGHT/LEFT 
STAT TO LEFT AND 
G2 MINUS 



-QG803— 
(OOtOltlOtll) 



-NIC 



-0G420- 
(XX) 



-NCE 



MPLR s 2t NO BORROW 



XX — SD 



10 



05D6 



S5— XX — SE 



S3— 



^ ~sc 



258060 , 
258430 



09/29/67 
12/21/67 



MACH 2050FP 
NAME 

MODE MANUAL 

P.N. 5449073 

IBM CORP. SDD 



DATE 12/29/67 
LOG 662 



SHEET 
VERSION 



I QG802 



FP LONG MULTIPLYtMDRtMD 
MULTIPLY LOOP 



QG802.JIE r 

(00.01.10t 11) 
SUBTRACT HO 
MCD 



E 
A 

D 
L 
L 
R 



01.' 
0011 
RH.*R 

SR4*H 
CSTAT*ADDER 
WStE*LSA 
LS*L+LS 

gko 



05B5 



QG802.EAB- 

(OOOOOX) 

(OUOOX) 

<10100X) 

MO BORROW 

(01011X) 

(10011X) 

(11111X) 

BORROW 



QG802.AGE- 
(11) 

QG420.LBE- 
(11) 



MPLR«9t BORROW 
L 001 IX 0526 



MPLR* At NO BORROW 



A3— 



*X 



-AC 



10100X 
E 1000 



R AQ(B«0)*A 
R S2 G2<0 
CI— ** — CA 

0 

SAVE CAR FROM 0 I 
SUBTRACT LO 6X MPCD 
FROM PROD IN H 
AND SHIFT R4 TO H. 
HO 6X MPCD TO L« 
BR ON RIGHT/LEFT 
STAT TO LEFT AND 
G2 CTR NEGATIVE* 



0528 
I 



C S03QE 
R AQ(B»0)*A 
R S2 G2<0 
C2 — ** — CB 



SUBTRACT HO MPCD 
FROM PROD IN R 
AND SHIFT R4 TO R 
AND SPILL TO H. 
FETCH HO MPLR 
TO L. BR ON G1<0 
(LAST MPLR DIGIT) 



SAVE CAR FROM 0 

SUBTRACT LO 6X MPCD 
FROM PROD IN H. 
AND SHIFT R4 TO H# 
HO 6X MPCD TO L. 
TN ON BORROW STAT* 
BR ON RIGHT /LEFT 
STAT TO LEFT AND 
G2 CTR NEGATIVE. 



QG802.NIE— — 
(OOtOltlOtll) 



0 II II! 



MPLR«Ot NO BORROW 
OOOOOX — 0500 



MPLR*Ft BORROW 
L1111X 053E 



R AQ(B=0)*A 
R S2 G2<0 j 
Jl— ** — JA 
SAVE CAR FROM 0 

ZEROS TO L. 

SHIFT LO PROD IN 

H R4 TO H. 

BR ON R/L STAT TO 

LEFT AND G2 NEG. 




— R AQ(B=0)*A 
R S2 G2<0 ( 
J2 — — JB 
SAVE CAR FROM 0 
ZEROS TO L 
SHIFT LO PROD IN 
H R4 TO H. 
BR ON R/L STAT TO 
LEFT AND G2 NEG. 



— 05B7J 



D 
L 
L 
R 

E3- 



11 
0000 
R— L*R 

SR4*H 
0*LSGNS 
CSTAT*ADDER 
MB+1 

WStE*LSA 
LS*L*LS 

SO 
X* —EC 



D 
L 
L 
R 
A4 



01 05B9 

0011 
R+L»R 

SR4*H 
CSTAT*ADDER 
WStE*LSA 
LS»L*LS 

GKO 

#X — AD 



ADD LO MPCD TO PROD 
IN R AND SHIFT R4 
TO R AND SPILL TO H 
BRANCH ON G1V0 
(LAST MPLR DIGIT) 




051 



E*WR 



IX — AF 



XFER HO MPLR TO M 
SET G2 CTR a 2. 



A 



MPLR*6t NO BORROW 



MPLR* 5 t BORROW 
01011X — 0516 
E 1000 



C S03*iE 
R AQ(B*0)*A 
R S2 G2<0 
Nl — ** — NA 



SAVE CAR FROM 0 
ADD HO 6X MPCD TO 
PROD IN H AND SHIFT 
R4 TO H. FETCH HO 
6X MPCD TO L. TN 
OFF BORROW STAT 0 
BR ON R/L STAT 2 
TO LEFT (ON) AND 
MPLR DIGIT. 



01100X 



0518 



R AQ(B*0)*A 
R S2 G2<0 
N2— ** — NB 
SAVE CAR FROM 0 
ADD LO 6X MPCD TO 
PROD IN H AND SHIFT 
R4 TO H. FETCH HO 
6X MPCD TO L. 




L 
L 
C 
R 
R 



00 — 05B4 
E 0010 
A R-L*R 

SR4+H 
B MMB->V 
B V*W 
B W*MDtF 
D CSTAT*ADDER 
WS1*LSA 
LS*L*LS 
S03QE 
F*ROAR 
SO 

J3— frftfrftfrX — JC 
SUBTRACT HQ MPCD 
FROM PROD IN Rt 
SR4 TO Rt SPILL*H 
LO 6X MPCD TO L. 
NEXT MPLR BYTE 

FROM M TO MDtF 
1*STAT2 (LEFT) 
BR ON BORROW* MPLR 

10 05B6 

0010 
RH_*R 

SR4»H 
CSTAT»ADDER 
MB-1 
WS1+LSA 
LSH.H.S 
S03.iE 

XX — NC 



D 
L 
L 
R 

E4 



11 05BB 

0000 -J 
R+L*R 

SR4*H 
0*LSGNS 
CSTAT»ADDER 
MB+1 

WStEH.SA 
LS*LH.S 

SO 
X* — ED 



XO — 05C6 
E 0100 
A R*T 

LMB*U 
B U*W 
B WL*J 
L WStE*LSA 
L LS*L*LS 
C 1*RSGNS , 
R LB*0 
A 7 — X* —AG 
XFER FL PT REG 
ADR OF 0P1 TO J. 
FETCH EXPONENT 
TO L. 

HO PROD IN R TO 
LATCHES FOR NEXT 
CYCLE NORM TEST. 
BR ON LB*0 (EXP 
OVERFLOW) 



00 

E 0010 
A R+L*R 



E 
A 

0— A 
D 
D 
L 
L 
C 

n; 



05B8 
**H J 



SUBTRACT HO MPCD 
FROM PROD IN R AND 
SHIFT R4 TO Rt 
SPILL TO H. TN R/L 
STAT 2 TO RIGHT 
(OFF). FETCH LO 6X 
MPCD TO L. DECR MB. 



SR4+H 
B MMB*V 
B V+W 
B W+MDtF 
D CSTAT*ADDER 
L WS1*LSA 
L LS*L*LS 
C S03QE 
R F*ROAR 
R SO 

J4— $$$$$X — JD 
ADD HO MPCD TO 
PROD IN Rt SR4 
TO Rt SPILL*H 
LO 6X MPCD TO L 
1*STAT2 (LEFT) 
NEXT MPLR BYTE 

FROM M TO MDtF 
BR ON BORROW* MPLR 

10 05BA 

E 0010 
A R+L*R 
0— A SR4*H 
D CSTAT*ADDER 
D MB-1 
L WS1*LSA 
L LS»L*LS 
C S03.iE 
N4 — XX — «ND 
ADD HO MPCD TO 
PROD IN R AND SHIFT 
R4 TO Rt SPILL tO H. 
FETCH LO 6X MPCD TO L 
TN R/L STAT 2 TO 
RIGHT (ON). DECR MB. 



IX — 0513 
L - E 0010 

B LMB*U 
— B U*W 
B W*MDtF 
L WSl*LSA 
L LSM3LS 
C S03QE 
R F»ROAR 
R SO 

E6 ttfrfrttfr X 
TN RIGHT/LEFT STAT 
2 ON (LEFT). I 
LO 6X MPCD TO L.l 
XFER NEXT MPLR 
DIGIT TO F. I 
BR ON BORROW STAT 
FN BR ON MPLR. I 



05C7 



E 1100 

B LMB»U 
I B U*W 

B WL*J 

L WStE*LSA 

L LS->L*LS 

C S03.iE 

E7— XX —EG 
BORROW STAT 0 ON 
MEANS ADD IX MPCD 
TO PRODUCT, 
TN OFF STAT 0 FOR 
SUBSEQUENT NORM BR. 
XFER FL PT REG ADR 
OF 0P1 IN L BYTE 1 
TO J. 



XX — 

I 

B MDtF*U 
~B 



05CF 



?»WR 



B WR*F 
D G-l 

R F»ROAR 

R SO 

N5 uJojoJolcfcX — NE 
DECR G COUNTER. 
XFER NEXT MPLR 
DIGIT TO F. BR ON 
BORROW STAT 0 AND 
i MPLR DIGIT. 



11 
1011 
H*H 

BCO F*SR4»F 
WStE*LSA 
LS*L*LS 



OOCB 



L 
L 
I 

je- 



ll 



o4-E 

A 
A 

L 
L 
R 

N6' 



10 — OOCA 
1011 
H*H 

BCO F*SR4 
WStE*LSA 
LS->L*LS 
S2 G2<0 

*# — IMF 



I 

A 
-A 

L 
L 
I 

J7— 



11 



OCBB 



H+L*H 

BCO F*SR4»F 
WS2*LSA 
L5»L»LS 



11 — JG 



I 

A 

a — a 

L 
L 
R 



10 



OCBA 



00C9 



01 

E 1011 
A H*H 

A BCO F*SR4 
L WS»E*LSA 
L LS">L->LS 
R S2 G2<0 
06— —OF 



N7- 



HfL^H 

BCO F«>SR4 
WS2->LSA 
LSH.-H-S 
S2 G2<0 

m — IMG 



01 



0CB9 



L 
L 
R 

Q7. 



H+L*H 

BCO F*SR4 |-a 
WS2-»LSA 
LS^L^LS 
S2 G2<0 

— QG 



Q 
6 
0 
0 

3 



11 — 0CD7 

A H-L+H 
r-A BCO F*SR4*F 
D HOT 1* ADDER 
L WS2^LSA 
L LS*L->LS 



J9 — 



11 — JI 



I 

A 
0-A 

D 
L 
L 
R 



10 



0CD6 



H-L*H 

BCO F*SR4 
HOTl^ADDER 
WS2*LSA 
LS->L>LS 
S2 G2<0 



N9— 



m — NI 



01 



0CD5 



I 

A H-L*H 

A BCO F*SR4 

D HOTl^ADDER 

L WS2*LSA 

L LS*L«tLS 

R S2 G2<0 

Q9— — QI 



-QG804- 



(XOtXl) 
INSERT SIGN 
TEST NORM 



-AGC 



-QG80 4 " 
(XX) 
ADD IX 
MULTIPLE 



258060 
258068 
258427 
258430 



09/29/67 
10/20/67 
U/14/67 
12/21/67 



MACH 
NAME 
MODE 
P.N. 

IBM CORP. 



2050FP 

MANUAL 
5449074 

SDD 



DATE 12/29/67 
LOG 662 



FP LONG MULTIPLY tMDRtMD 
MULTIPLY LOOP 



-QG802 
(00110X) 
(01000X) 
(01010X) 
(01110X) 
(10000X) 
(10010X) 
(10110X) 
(11000X) 
(11100X) 
(11010X) 
(11110X) 
NO BORROW 
(00101X) 
(00111X) 
(01001X) 
(01101X) 
(01111X) 
(10001X) 
(10101X) 
(10111X) 
(11001X) 
(11011X) 

diiaix) 

BORROW 



SHEET 1 QG803 

VERSIC»yi 



-EG6 



-CAB 



QG803.EGE- 
(XX) 
ADD IX 
MULTIPLE 



QG803.AGE 

(XOfXl) 
INSERT SIGN 
TEST WORM 



XX - 
1101 
H+L*H 



-*A BCO 



05D| 
I 



L WStE*L5A 
L LS*L*LS | 
C 1*RSGNS I 
A2— XX — AB 
SAVE CAR FROM 0 

ADD LO IX MPCD TO 

PRODUCT IN H. 

FETCH HO IX MPCD 

TO L. 



*— E 

A 
D 
L 
L 
R 



XX < 
0100 
R+L*R 

CSTAT*ADDER 

WS*E*LSA 

LS*L*LS 

LB*0 



05D0 



E2— 



X* — EB 



ADD HO IX MPCD TO 
PROD IN R 
FETCH EXP TO L. 
BR ON LB=0 (EXP 
OVERFLOW ) • 



XI 05C9 

0010 
R»L«M 

L0n54* 

E(23)»LSFN 



E 
A 

-<*A 
C 
I 

R UNORM 

A3 — *X — AC 
iS0.(T(8-ll)=0)*A 
COMBINE EXP IN L 
WITH INVERTED SIGN 
(- STAT4) AND 
FRACTION IN R. 
RESULT TO L AND M. 
SET LS FN REG TO 
10 (FL PT REGS). 
BR ON NORMALIZATION 
NEEDED* 



I 

A 

-0 A 

L 
L 
I 

A4 



IX 



0517 



XO 05C8 

E 0010 
A R*L«M 

A L0tS4* 

L FN«o»LSA 
L LH.S 

C E(23)*LSFN 

R UNORM 

J3 — #X — JC 
iS0t£T{8~ll)=0)*A 
COMBINE EXP IN L 
WITH NORMAL SIGN 
(STAT 4} AND FRAC 
IN R TO L AND M. 
STORE L TO HO FL 
PT REG PER J. 
SET LS FN REG 
TO (10) FOR FL PT 
BR ON NORM NEEDED 



H*R 

F*SL4*F 
FNtJQl*LSA 
RH.S 

XX — AD 



SHIFT LO PROD IN 
H L4 TO R AND SPILL 
TO F. STORE R TO 
LQ FL PT REG PER 



EXP OVERFLOW 



IX 



051B 



A H*R 
-A F*SL4*F 
L FN«JG1*LSA 
L R*LS 
I 

J4 — XX — JD 



SHIFT LO PROD IN 
H L4 TO R. STORE 
R TO LO FL PT REG 
PER J. 



OX - 
H»R 

FN«JQl*l.SA 
R*LS 

S7 1 



519 



*1 — ND 
SUPPRESS MEMORY 
IF OFF BNDS 
AND PREFETCH 
EXCFNQIA(30)*A 
EX€PI\m(IA(30).REF)*B 
LO PROD TO R AND 
FL PT REG PER Jfl 
START I FETCH 



I 



XX 



05D2 



A M-1*L 

A BC1B F4FPSL4 

D HOT 1+ ADDER 
L FNtJ*LSA 
L L*LS 

R 0 (CAR} 
A5 — 0* — AE 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 

SHIFT HO PROD IN 
L L4 AND DECR EXP 
BY l t RESULTS TO 
L AND HO FL PT 
REG PER J. 
BR ON CARRY (NO 
EXP UNDERFLOW). 




XX 



.0333 



I 

A H*R 
I 

L FNfJQl*LSA 
L R*LS 
I 

E5 — OX — EE 



XX 



05D3 



A M-1*L 
— »A BC1B F*FPSL4 
D H0T1*ADDER 
L FNtJ*LSA 
L L*LS 

R S7 (CAR) 
J5 — — JE 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 



SHIFT HO PROD IN 
M L4 AND DECR EXP. 
RESULT TO L AND 
FL PT REG PER J# 
BR ON CARRY (NO 
EXP UNDERFLOW). 



Q 
G 
8 
0 
4 



00 0814 

E 0010 
A L»L 
-A L0»S4* 
B E»WR 
R W*MMB 
L FN«J*LSA 
L L*LS 
C E(13)*WFN 
C6 — XX — -CF 



10 0816 

E 0010 
A L*L 

L0«S4» 
B E»WR 
B W»MMB 
L FN%J»LSA 
L L*LS 
C E(13)*WFN 
G6 — XX — GF 



00 

1110 

WStE*LSA 
LS*L*LS 
IA+0/2*A 
E*S47 
I— FETCH 



0CB4 



C8— 



** — CH 



01 0815 

1110 

WS«E+LSA 
LS»L*LS 
IA+0/2*A 
E*S47 
I-FETCH 

— JF 



01 0CB5 

E 1100 
A L*L 

L0*S4* 
B E*WR 
B W*MD»F 
L FNtJ^LSA 
L L*LS 
G8 — OX — GH 



OVERFLOW 



-QT310- 

(OX) 



-EEE 



PROGRAM TRAP 



-JFE 



R 

J6— 
EXCPNfiIA(30)*A 
EXCPNQ(IA(30).REF)»B 
FIRST WD OF I FETCH 



-QT110— 
(OOtOlflOill) 
I-FETCH 



11 0817 

~€ 0010 I 

A LH. ! 
—A L0«S4* 

B E»WR 

B W*MMB 

L FNtJ»LSA 

L L+LS 

C E(13)»WFN 

N6 — XX — NF 
ZERO TO L AND HO 
FL PT REG PER J* 
SET MVR FN REG* 
TO 10 (FL PT). 
EMIT UNDERFLOW 
CODE TO M» 



XX 05A4 

E 0001 

B PSW44U MMB*V 

?*W 
C S47QE 



N7— 



-QG409 

(XX) 

TEST MASK 



HUGE 



XX — NG 



STORE ZEROS TO LO 
FL PT REG PER Jfl* 
AND PSW MASK WITH 
TEST BIT IN M. 
GO TO SINGLE FL PT 
MULTIPLY PROGRAM FOR 
UNDERFLOW INTERRUPT. 



258060, 
25843C? 



09/29/67 
12/21/67 



MACH 
NAME 
MODE 
P.N. 

IBM CQRP* 



^ANJAL 

5449075 

SDD 



DATC 

log 



662 



S-iEET 
VERSION 



FP LONG MULTIPLYiMDR.MD 
END ROUTINE -POSTNORM 



1 QG804 



QG801.NFE- 
(XX) 

GENERATE 
MULTIPLES 



XX 

E 1100 
A L+H 
-*L WSfE^LSA 
L L*LS 



0529 



El — XX — EA 

XFER L0 IX MPCD 
FROM L TO H. 
STORE L TO WS12 



XX 052B 

E 1000 I 
A L*L I 
-A SL14Q 4 

L WStE^LSA 
L L*LS I 
C E(13)*WFN | 
E2— XX — EB 



SHIFT LO IX MPCD 

LI TO L (LO 2X MPCD) 

STORE L TO WS8. 



XX 052D 

E 1001 
A R*R 
-A Q*SL1 
L WS*E*LSA 
L R*LS 

C E(23)H.SFN 
E3— XX — EC 



SHIFT HO IX MPCD 

LI TO R (HO 2X MPCD) 

STORE R TO WS9. 

SET LOCAL STORE 

FN REG TO 01 

FOR WORKING STORE 



XX - 
1101 
H+L*H 

BCO SL1*Q 
WStE*LSA 

LS-H.+LS 



052F 

E 
A 

—A 

L 
L 
I 

E4 — XX — ED 
SAVE CAR FROM 0 
ADD LQ IX MPCD TO 
2X MPCD AND SHIFT 
LI TO DOUBLE. PUT 
LO 6X MPCD IN H. 
FETCH HO IX MPCD 
TO L. 



XX 0531 

E 0001 

A R-H.+L 
A Q*SL1 

B E*WL 

B WL*G1 

D CSTAT*ADDER 

L WS2*LSA 

L L*LS 

£5—- XX 
ADD HO IX MPCD TO 
2X MPCD AND SHIFT 
LI TO DOUBLE. PUT 
HO 6X MPCD IN L. 
STORE L TO WS2 
SET Gl TO 1. 



a 

6 
8 
0 
5 



XX 0533 

E 0000 
A H*L 

A BCO 

B MMB*V 

B V*W 

B W*MD»F 

D MB-1 

L WS1*LSA 

L L*LS 

C E*S03 

E6 — XX — EF 
SAVE CAR FROM 0 



XFER LO 6X MPCD TO 
L. L TO WS1. 
TN OFF CARRY STAT 
XFER 1ST MPLR BYTE 
IN M BYTE 3 TO MD 
AND F. DECR MB. 
STATS 0-3 TO ZERO 



XX 

1011 
0*R 

WS»E*LSA 
R*LS 



0535 



VSGNS 
E7— *X —EG 
LSGNVRSGNtA 
ZEROS TO R (HO 
PRODUCT ) . 
STORE ZEROS TO 
WS11 TO BE USED 
AS HO MPCD FACTOR 
FOR MPLR DIGITS 
REQUIRING SHIFT 
ONLY. BR ON EOR 
OF L* R SIGN STATS 



-0G802 EG£ 

(OXtlX) 

MULTIPLY LOOP 



258060 
258430 



09/29/67 
12/21/67 



MACH 2050FP 
NAME 

MODE MANUAL 

P.N. 5449076 

IBM CORP. SDD 



DATE 12/29/67 
LOG 662 



SHEET 1 0G8®$ 
VERSION 



PP LOWS MULTIPLY tWURtW 
GENERATE MCU MULTIPLES 



PROGRAM MOTES 
TEST FOR DVR GTR 
THAW DVD. IF NOTt 
SHIFT DVR L4 AND 
SET LB*3 FOR EXP 
ADJUSTMENT AT END 



WS 11 * HO DVR 
WS 15 m LO DVR 
DVR « DIVISOR 
DVD « DIVIDEND 
EXP ■ EXPONENT 



0E38 



QG801.JAE- 
(10) 

PRE— NORM 



aGBOl.EGE- 

(10) 

PREHVORM 



QG902.EHE- 
(00) 



10 — 03BA 
— *E 0011 

A R+L 

D O+LB 

L WStE+LSA 
--*L LS+R+LS 

C S47 #1 E 

R S6 S5 

El— ** — EA 
XFER HO DVR IN R 
TO L. FETCH HO DVD 
TO R. SET LB s O. 
BR ON DVD UFLO 
(STAT 6) AND DVR 
UFLO (STAT 5). 



00 
1011 
R-L+RO 

BC 1+FPSR4+F 
WStE+LSA 
L+LS 



L 
L 
I 

A2— XX — AB 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 

NO UNDERFLOW 

SUBTRACT DVR EXP 

FROM DVD EXP. 

RESULT TO R EXP. 

STORE HO DVR IN L 

TO WS11. 



0E3B 



11 - 
1011 
R-L+RO 
BC 1+FP5R4+F 
WStE+LSA 
L+LS 



XX — OEBA 
E 0100 
A R+64C+R0 
-A BC1B 

B WL+MD 
-L WStE+LSA 
R+L5 
S47 0 E 
CSTAT (CAR) 

—AC 
1 



E 
A 

*— 0«— A 
D 



L 
C 
R 

A3— 
SAVE CAR FROM 
BLOCK CAR FROM 8 
ADD EXCESS 64 TO 
EXP IN R. R TO WS4 
SET MD»0 FOR CONST 



00 « 
0000 
-l+RO 
DCO 

H0T1+ADDER 
EU3)+WFN 



0E3C 



C 
I 

A4 — XX —AD 
Sl+ADDER 
CARRY(0)*Sl 
DEC ADD CORRN+L 

EXP UNDERFLOW. 
TN ON UFLO STAT1 
ZEROS TO R EXP. 
MVR FN TO CROSS 



L 
L 
I 

E2— XX — EB 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
DVR AND DVD UFLO 
SUBTRACT DVR EXP 
FROM DVD EXP. 
RESULT TO R EXP. 
STORE HO DVR IN L 
TO WSU. 



01 — 0E39 
E 1011 
A R-L+RO 

BC 1+FPSR4+F 
L WStE+LSA 
L L+LS 
I 

Jl — XX — JA 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
DVR UNDERFLOW 
SUBTRACT DVR EXP 
FROM DVD EXP. 
RESULTS TO R EXP. 
STORE HO DVR IN L 
TO WS11. 



XX — OEBB 
E 0100 
A Rf64C+R0 
-A BC1B 
B WL+MD 
L WStE+LSA 
L R+LS 
R BQ(A»1).+B 
R CSTAT (CAR) 
J2— ** — JB 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
ADD EXCESS 64 TO 
EXP IN R. R TO WS4 
SET MD«0 FOR CONST 



00 
0000 
0+RO 
DCO 

E(13)+WFN 



0E40 



E3 — XX —EC 
Sl+ADDER 
CARRY (0)+Sl 
DEC ADD CORRN+L 

ZEROS TO R EXP. 
TN OFF STAT 1 FOR 
NO EXP UNDERFLOW. 
MVR FN REG TO 
CROSS-GATE. 



10 0E3A 

1011 

R-L+RO 

BC 1+FPSR4+F 

WStE+LSA 

L+LS 



0G902.ADF- 

(00) 



Nl — XX — NA 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
DVD UNDERFLOW 
SUBTRACT DVR EXP 
FROM DVD EXP. 
RESULT TO R EXP. 
STORE HO DVR IN L 
TO WSU. 



XX — OEBC 

E 0100 

A Rf64C+R0 
—A BC1B 

B WL+MD 

L WStE+LSA 

L R+LS 

R BQ(A«0)+B 

R CSTAT (CAR) 

N2— m — NB 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
ADD EXCESS 64 TO 
EXPONENT IN R. 
R TO WS4. 

SET MD=0 FOR CONST 



01 - 

0001 

S47QE 



0E41 



^ S47 
J3— 



01 



01 0E3D 

4-€ 0000 
A 0+RO 
DCO 

C E(13)+WFN 
I 

E4— XX — ED 
Sl+ADDER 
CARRY (0)+Sl 
DEC ADD CORRN+L 

ZEROS TO R EXP. 
TN OFF UFLO STAT1 
MVR FN TO CROSS 



0E3F 



A5 — 01 — AE 
EXP OVERFLOW 




XX OEBD 

E 1111 

A M+H 
—A SL1+Q 

D O+MB 
— L WStE+LSA 
L LS+L+LS 
R VSGNS 
E5 — *X — EE 
LSGNVRSGN+A 
SHIFT LO DVD IN M 
LI TO H AND Q. 
FETCH LO DVR TO L 
SET MB=0. BR ON 
EOR OF L AND R 
SIGN STATS. 



EXP OVERFLOW 



10 
0000 
0+RO 
DCO 

E(13)+WFN 



0E3E 



-0 



XX — JD 
Sl+ADDER 
CARRY (0) ♦SI 
DEC ADD CORRN+L 

TN OFF UFLO STAT1 
ZEROS TO R EXP. 
MVR FN REG TO 
CROSS-GATE. 



0E43 



N3 — 01 — NC 
EXP OVERFLOW. 
LIKE ABOVE 




QG902.ECF- 
(00) 



QG902.ACF- 

(00) 




10 * 
0000 
-1+RO 
DCO 

HOT 1 LADDER 
E(13)+WFN 



0E46 



XX — ND 
1+UFLO STAU(DCO) 
ZEROS TO R EXP 
SET MVR FN TO 
CROSS 



OX « 
1011 
M*L+T 
BCO 

HOT 1 LADDER 
WStE+LSA 
LS+L+LS 



0E98 



L 
I 

A6 — XX — AF 
SAVE CAR FROM 0 
SIGNS ALIKE. 
TN OFF SIGN STAT 4 
SUBTRACT LO DVR 
FROM DVD. FETCH 
HO DVR TO L. 



XX OEBE 

E 1011 

A 0+LO 

B W+MMB 

D MB+1 
— L WStE+LSA 

L L+LS 

C S030E 

A7 — XX — AG 
ZEROS TO' L EXP. a 
ZEROS TO BYTE 0 
OF M. INCR MB. 
TN R/L STAT 3 TO 
LEFT (ON). STORE 
HO DVR IN L TO 
WSU. 



■ OEBF 

E 
A 

—A 

D 
L 
L 
R 

SAVE CAR FROM 0 
SUBTRACT HO DVR 
FROM DVD IN R. 
FETCH LO DVR TO L 
BR ON CARRY (DVR 
LT OR EQ DVD). 



XX 

1111 

R-L+T 
BCO 
C5TAT+ADDER 
WStE+LSA 
LS+L+LS 

(CAR) 
X* —AH 



*0- 



IX — 0E9A 
E 1011 
A MH-+T 
BCO 

D H0T1+ADDER 
L WStE+LSA 
L LS+L+LS 



E6— XX — EF 
SAVE CAR FROM 0 
SIGNS UNLIKE 
TN ON SIGN STAT 4 
SUBTRACT LO DVR 
FROM DVD IN M. 
FETCH HO DVR TO L 



XX 

E 1000 



0E2E 



C S47QE 



XX 

E 1000 



C S47.iE 



0E09 



XX —EG 



I 

E8— 



XX 



xo 

I 

A R+R 
-A 
D MD+1 



A9 — 



0E8E 



Q+SL1 



XX — A I 



DVEKDVR 
SHIFT HO DVD LEFT 1 
TO R. INCR MD TO 1 



XX — 0EC3 
E 1011 
A H-L+H 

BCO SL1+Q 
B MDtF+U 
B ?+WR 
B W+G 

D HOT 1 LADDER 

L WStE+LSA 

L LS+L+LS 

E9— 00 —EI 

SAVE CAR FROM 0 
ENTER DIVIDE LOOP 
SUBTRACT LO DVR 
FROM DVD AND SHIFT 
LI TO H AND Q. 
FETCH HO DVR TO L 
SET G1*G2»1 FROM 
MD. 



XI 0E8F 

E 1111 
A L+L 

SL4+F 

D 3+LB 
L WStE+LSA 
L L+LS 
J6< — XX — JF 



DVR EQ OR LT DVD 
SHIFT LO DVR L4 
TO L AND F. 
L TO WS15. 
SET LB«3 FOR 
FRACTION SHIFT. 



0E4C 



1+UFLO STAT1 (DCO) 
ZEROS TO R EXP 
SET MVR FN TO 
CROSS 



01 ■ 
0000 
A -1+RO 
A DCO 

D HOT 1 LADDER 
C EU3)+WFN 



0E4S 



S3—, 



0+UFLO ST ATI (DCO) 
ZEROS TO R EXP 
SET MVR FN TO 
CROSS 



0E47 



XX — SC 



11 • 
«€ 0000 
A 0+RO 
A DCO 
I 

C E(13)+WFN 



S4— XX — SD 



LOO 
1111 

A R4L+R 
A Q*SL*-F 
D CSTAT+ADDER 
f*L WStE+LSA 
L LS+L+LS 
R (ZOO) 
N5 — X* -H\IE 
ADD HQ DVR AND DVD 
SHIFT LI TO R. 
ENTER QtSPlLL TO F 
FETCH LO DVR TO L 
BR ON SUM BIT 0=0 



SUBTRACT HO DVR 
FROM DVD. SHIFT 
LI TO R. ENTER 0 
SPILL TO F 
-.FETCH LO DVR TO I 
^BR ON SUM BITO-0 

00 0E48 

**E 1111 
A RH.+R 
—A Q+SL+-F 
CSTAT+ADDER 
WStE+LSA 
LS+L+LS 

(ZOO) 



D 
L 
L 
R 

55 — 



X* — *5E 



XI — 0E9D 
E 1011 
A H+L+H 

BCO SL1+Q 
L WStE+LSA 
L LS+L+LS 
I 

N6— XX — NF 
SAVE CAR FROM 0 
ADD LO DVR AND DVD 
SHIFT LI TO Ht Q. 
FETCH HO DVR TO L 



SUBTRACT LO DVR 
FROM DVD. SHIFT Ll 
TO Ht Q. 

FETCH HO DVR TQ L 

SAVE CAR FROM 0 

XO ■ 0E9C 

E 1011 
A H-t+H 

-—A BCO SL1*Q *~ 
D HOT 1 LADDER 
L WStE+LSA « 
L LS+L+LS i 
S6 — XX — SF 



XX 0EC6 

E 1111 
A R+L*R 

A Q*SL*-F 
D CSTAT*ADDER 
•4. WS.E4LSA 
L LS^L^LS 
R (ZOO) 
J7 — X* — JG 



ADD HO DVR AND DVD 
SHIFT Ll TO R. 
ENTER Qt SPILL TO F 
BR ON SUM BIT 0»0 



A 
A 

L 
L 



XX OECO 

1011 
R»R 

Q*SH 
WStE^LSA 
LS^L^LS 

XX — NG 



SHIFT HO DVD Ll 
TO R. ENTER Q. 
FETCH HO DVR TO L 



SUBTRACT HO DVR 
FROM DVD. SHIFT Ll 
TO R. ENTER Q« 
SPILL TO F. 
FETCH LO DVR TO L 
BR ON SUM BIT 0*0 
XX — 0EC4 
E 1111 
A R-L*R 
— A Q*SL»-F 
CSTAT^ADDER 
WStE^LSA 
LS*L*LS 

(ZOO) 



XI — 0E9F 
E 1011 
A HfL*H 

BCO SLl^Q 
L WS^E^LSA 
L LSK^LS 
I 

J8— XX — JH 
SAVE CAR FROM 0 
ADD LO DVR AND DVD 
SHIFT Ll TO Ht, Q. 
FETCH HO DVR TO L 



XX — 0EC7 
E 1111 
A R+L*R 
-A Q*SL*-f *0- 

D CSTAT^ADDER 
L WStEH-SA 
L LS*L*LS 
R (ZOO) 
X* — JI 



ADD HO DVR AND DVD 
SHIFT Ll TO R. 
ENTER Qt SPILL TO 
F. 

FETCH LO DVR TO L 
BR ON SUM BIT 0*0 



E 
A 
-A 

L 
L 
I 

N8- 



XX — 0EC1 
1011 
L*L 

F*SL4*F 
WStE+LSA 

LH.S 



XX — 
E 1111 
D MD-fl 
-L WStE+LSA 
L LS+L+LS 



0EC2 



XX — NH 



N9 — 



XX — NI 



D 

L 
L 
R 

n -14.. ^7^^ 

258060 , 

258427 

258430 



09/29/67 
11/13/67 
12/21/67 



SHIFT HO DVR L4 
TO Lt ENTER Q. 
FETCH HO DVR TO L 



SUBTRACT LO DVR 
FROM DVD. SHIFT Ll 
TO Ht Q. 

FETCH HO DVR TO L 



SAVE CAR FROM 0 

XO — 0E9E 
-0— € 1011 
A H-L+H 
A BCO SL1+Q 
D HOT 1+ ADDER 
L WStE+LSA 
L LS+L+LS 
S8— XX — SH 

MACH 2050FP 
NAME 

MODE MANUAL 

P.N. 5449077 

IBM CORP. SDD 



FETCH LO DVR TO L 
INCR MD TO 1. 



SUBTRACT HO DVR 
FROM DVD. SHIFT Ll 
TO R. ENTER Qt 
SPILL TO F. 
FETCH LO DVR TO L 
BR ON SUM BIT 0=0 
XX — 0EC5 
E 1111 
A RH.+R 

A 0+SL+-F 

D CSTAT+ADDER 
L WStE+LSA 
L LS+L+LS 
R (ZOO) 
S9-^ - X* —SI 



-OG902 

(XOtXl) 



-J IE 



DATE 
LOG 



12/29/67 
662 



SHEET 
VERSION 



1 QG900 



FP LONG DIVIDE t DDR AW DD. 
EXPONENT ARITHt DIVIDE LOOP. 



XO 03C0 

E 1011 
A H-L*H 
-*A BCO SL1*Q 
D HOT 1* ADDER 
L WS*E*LSA 
L LS*L*LS 
Al — XX — AA 
SAVE CAR FROM 0 
SUBTRACT LO DVR 
FROM DVD. SHIFT LI 
TO H AND a. 
FETCH HO DVR TO L 



XX 03C2 

1111 
R-L»R 

Q*SL3-F 
CSTAT»ADDER 
WS«E*LSA 
LS*L*LS 

S3 < ZOO 



E 
A 
-A 
D 
L 
L 
R 

A2— 



** — AB 



SUBTRACT HO DVR 
FROM DVD* SHIFT LI 
TO R. ENTER GU 
SPILL TO Ft 
FETCH LO DVR "0 L 
BR ON R/L STAT 3 
TO L (ON) AND SUM 
BIT 0=0. 



10 03BC 

E 101* I 

A H-L»H 
— A BCO SL1»Q 

B MD*F*U MMB*V 

B VL*W^ 

B W»MMB 

D H0T1*G-1 

D MB+i 

L WStE*uSA 

L ^S*L*v.S 

C S03QE 

R G1<0 G2<0 

A3— —AC 
SAVE CAR FROM 0 
LO DVD-LO DVR SLl 

TO H«GU HO DVR-H-. 
OUOT DIGIT FROM F 

TO M BYTE 3 
1*STAT3 .LEFT' 



10 « 03BE 

E 1011 
A H~L*H 
—A BCO M.t*G 
B MD*P*U 

B V*W.: v^WR *i 
B WWH 
D H0T1*ADDER 
L WS*E*LSA 
L LS*L*^S 
C S03«tE 
A4 — 00 — AD 
SAVE CAR FROM 0 

LIKE AT LEFT 
EXCEPT 0+STAT3 



01 0E49 

E 0010 
A M*L 

B E»WR 

B WR*G2 
L WS1*LSA 
- L*LS 
A5 — XX — AE 

XFER HO QUOT IN M 
TO L« WS1* 
SET G2*2. 



XX 

E 1011 
L WStE^LSA 
-L LS*L»LS 



03C3 



A6 — 00 — AF 
FETCH HO DVR TO L 



03C1 

E 
A 

A 

L 
L 
I 

El — XX — EA 
SAVE CAR FROM 0 
ADD LO DVR TO DVD. 
SHIFT LI TO H« Q. 
FETCH HO DVR TO L 



XI - 
1011 
H+L*H 

BCO SL1*Q 

WS«E*LSA 

LS»L*LS 



XX 03B9 

1111 
R-fL*R 

Q*SL*-F 
CSTAT^ADDER 
WS«E*LSA 
LS*L*LS 

S3 (ZOO I 



E 
A 
-A 
D 
L 
L 
R 

E2— 



** — EB 



ADD HO DVR TO DVD. 
SHIFT LI TO R* 
ENTER Q. SPILL TO 
F. FETCH LO DVR 
TO L. BR ON R/L 
STAT 3 TO L '.ON) 
AND SUM BIT 0=0. 



END OF DIVIDE LOOP 
POST NORM AL I Z A T I ON 



01 • — =- 03BD 
E 1011 
A !+k.*H 

A BCO SL1»Q 

B MD«F»U MMB+V 
B VL*WL l*i 
B W*MMB 
D G-l 
D MB-fl 
u WS*E*LSA 
L LS*_*LS 
C S03QE 
R G1<0 G2<0 
E3— —EC 
SAVE CAR FROM 0 
1.0 DVR4-DVD SLl TO 

H«GU HO DVR*~« 
OUOT DIGIT FROM F 
TO M BYTE RIGHT: 

1*STAT3 ;_eft: 



11 03BF 

E 1011 
A H-k.*H 

BCO SL1*Q 
B MD«F*U 
B ?*WL VR*WR 
B W*MMB 
L WS,E*LSA 
L LS*L*LS 
C S03.-.E 
E4 — 00 — ED 
SAVE CAR FROM 0 
ADD LO DVR TO DVD* 
SHIFT Li TO H* Q. 
QUOT DIGI" IN F 
T 0 M _F BYTE. R/L 
S^A T 3 T Q RT .off; 




II — 0E4B 
0100 
M*H 

WS«E*LSA 
LS*L*LS 



E5~ 



A7— 



0E4D 



E*WR 



XX — AG 



XFER HO QUOT IN M 
TO Lt WS1. 
SET G2=2. 



XX —EE 



^0 QUOT IN M TO H 
FETCH EXP TG L. 



11 

E 0100 
A M*H 

WStEtLSA 
L LS»L*LS 



0E4F 



E?- 



-QG900- 

(00) 



-ACF 



-QG900- 
(00) 



-ADF 



XX —EG 



LO QUOT IN M TO 
FETCH EXP TO L. 



XX 

1011 
L WStE*LSA 
L LS*L*LS 



OEDO 



E8 — 00 —EH 
FETCH HO DVR TO L 



-QG900- 
(00) 



-EHE 



XX 

WSl^LSA 
LS4RH.S 



oed; 



R SI 
Jl— 



I 

A 

-0— A 



OX 



0E99 



*X — JA 



FETCH HO QUOT TO R 
BR ON STAT 1 (EXP 
UNDERFLOW). 



L 
L 
R 
R 

J2— 



R*R 

L0.S4* 
FN tJ*LSA 
R*LS 

AQ(B=1)*A I 
S7 LB=3 I 
— -JB 



COMBINE EXP IN L 
WITH HO QUOTIENT 
IN R. INSERT NORM 
SIGN PER STAT 4. 
RESULTS TO R AND 
HO FL PT REG PER 
J REG. BR ON LB=3 
(DVR SHIFTED L4). 



10 OECE 

I 

A M»L 

FNt„Ql»LSA 
L L*LS 
=1 



J3— 01 — JC 
SUPPRESS MEMORY 

IF OFF BNDS 

AND PREFETCH 
EXCPNQIA(30)*A 
EXCPNQUA(30UREF:*B 
LO QUOTIENT IN M 
TO L AND LO FL PT 
REG PER v>H« 
START I FETCH. 



il 



OECF 



A R*RO 

A BC i*FPSR44F 
L FN»v,*LSA 

L R»LS 

R S7 sCAR; 
u4 — — JD 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
DVR WAS SHIFTED L4 
INCR EXP BY 1. 
RESULTS TO R AND 
HO FL PT REG PER 
J REG. BR ON EXP 
OFLO. 



I 

A R+„ 



01 — - OECD 



-0— « 



XX — je 

EMIT OFv.0 CODE 
00001 100 TO MD« F 
GO TO INTERRUPT* 



IX 



0E9B 



R»R 

L0^S4» 
FNtJ-H-SA 
R*LS 
1*RSGNS 

LB=3 
X* — NE 



>H — » 



-! 

A 

L 
S 
S 
R 

Q3— 



00 



OECC 



M*L 

FNtJQl^LSA 
L-H-S 

IA+0/2*A 
SMIF 
I-FETCH 



COMBINE EXP IN L 
WITH HO QUOT IN R 
INSERT INVERTED 
SIGN (-STAT 4). 
RESULTS TO R AND 
HO FL PT REG PER 
J REG. BR ON LB=3 
(DVR SHIFTED R4) 



XI 



OECB 



M*L 

FN«J01*LSA 
L»LS 
IA+0/2*A 
SMIF 
I-FETCH 

** — OG 



XX 



OEOD 



L 
S 
S 
R 

J7 

SUPPRESS MEMORY 

IF OFF BNDS 

AND PREFETCH 
EXCPNQIA(30)»A 
EXCPNG(IA(305.REF)*B 
LIKE BLOCK JC 



L*L 

L0tS4> 
FN«JH.SA 
LH.S 



L 
L 
I 

J 8 — 



XX — JH 



XX — i OEOE 

E 1100 

A M*L 
-B 

B W*MD«F 

L FNtJQULSA 

L L*LS | 



-QG900- 
(00) 



-ECF 



E^WR 



J9— 



OX — JI 




"JIF 



<aT310— 
(OX) 
PROGRAM TRAP 



-JGE 



XO 



OECA 



INCR EXP IN R» 
STORE R TO HQ FL 
PT REG PER J REG. 
BR ON NO EXP UFLO 
SAVE CAR FROM 1 
BLOCK CAR FROM 8 
XI — 0EC9 



R>RO 

BC 1*FPSR4*F 

FNtJ*LSA 

R»LS 

(CAR) 



S6— . 



NHL 

0*LSGNS 

FNfJQlH.SA 

L>LS 



I * — Q- 



N7- 



XX — NG 



EXP UNDERFLOW. 
ZEROS TO L AND HO 
FL PT REG PER J. 



LIKE ABOVE 



XO 



"I 

A M*L 

C 0-H.SGNS 

L FNtJQl*LSA 

L L*LS 



0EC8 



XX 
0001 
R»L 



OEOF 



<iT105— 
(00t01tl0«U) 
I-FETCH 



S47QE 
L*LS 

FNtJ^LSA 



-QG409- 



(00) 
TEST MASK 



H\IHE 



00 — NH 



X* — SF 



S7— « 



XX 



-SG 



258060 
258430 



09/29/67 
12/21/67 



MACH 2050FP 
NAME 

MODE MANUAL 

P.Nt 5449078. 

IBM CORP. SDD 



DATE 12/29/67 
LOG 662 



SHEET 1 
VERSION 



QG902 



FP LONG DIVIDE, Dtif? AND DD. 
DIVIDE LOOP* END ROUTINE* , 



100000 



0X20 



QTUStCHE 
(100000) 
U00001) 
(100100) 
(100101) 

first teva. 

I-FETCM 



0£400fCHE« 

(100000) 

(100001) 

(100100) 

(100101) 

EXECUTE 



M23+L*R 
WR*F 
L FN<MD*LSA 
L LS+L+LS 
R M(47)f RQAR 
Al'—'^B^f'^^^XX — ^Al \ 

B NOT Qt 
B+D TO Rt 
OPND 1 TO L 
CLEAR F 



100001 — 012J 

A M23+R 
~ WR^F 
L FNtMlHLSA 
L LS*LKS 
R M(47)» RQAR 
E1""'^J^^^^XX 

B * 0 

D TO R (ADDft) 
OPND 1 TO L 
CLEAR F 



100X00 



0X24 



E 00X0 
A M234L*R 
< WS1*LSA 
L R*LS 
C E*S03 
R M(47)» R0AR 
L3** i '''''^8'WWiXX """HLC 
B+D TO r 



XOOXOX — 0X25 
E 0010 
A M23*R 
—L WSX*L5A 
L R*LS 
C E*S03 
R M(47)*R0AR 

D TO 

ADDR TO LS CWSl) 
SET STATS (FOR 
10 OPS)* 



■aaaoo- 



-AAE 



(OOOOXX)SSM 
(OOXOXX)LPSW 



0- 

0* 



-QMX1X- 
(0001XX) 
(0100XX) 
(0101XX) 
INVALID OP 



-OYHO— 
(0011XX) 
DIAGNOSE 



-AAE 



-QJ60 0 1 A AE 

(OllOXX)BXH 
(OIUXX)BXLE 



-OJOB O A AE 

(lOOOXX)SRL 



HjD090" |M ' M ' inaM *AAE 
(lOOlXX)SLL 



mQjx 00*' A AE 

(lOlOXX)SRA 



■cuitc 

(lOHXX)SLA 



-OJ12 0 - A AE 

(IIOOXX)SROL 



-0J13 
(HOIXX)SLDL 



-QJ140- 
(IHOXX)SRBA 



•AAE 



-OJ150 A AE 

(HllXX)SLDA 



-0K66 6 L CE 

(OOOOXX)STM 
(lOOOXX)LM 



-QK55S 
(OOOIXX)TM 
(OIOXXX)CLI 



-QK222- 
(OOIOXX)MVI 
(OXOOXX)NI 
(OIXOXX)OI 
(OXXXXX)XI 



<CE 



-QX300- 
(OOXXXX)TS 



-LCE 



UOOXXX) 
(XOXOXX) 
(XOXXXX) 
INVALID OPS 



-QK700' - L CE 

(XXOOXX)SIO 
(XXOXXX)TIO 
(XXXOXX)HIO 
(XXXXXX)TCH 



a 
u 

0 
X 
X 



J MACH C20S0 

2S5096 03/02/65 1 NAME 

255443 07/20/65 MODE MANUAL 

255449 09/20/65 I P#N« 5364769 

I IBM CORP* SDD 



DATE X0/0X/65 
LOG 902 



SHEET X 0J01X 
VERSION 



R5«5I 2ND LEVEL I~FETCH» 
(8~t9-U 



NO X-BIT SHIFTS 

Xl — 07BX 



QJOXXtAAE— - 
CXOOOXX) 
SECOND LEVEL 
X-PETCH 



lOOOXX — 0722 
A R*R 

A SRX^Q 
8 R3HJ 
B U*W 
B W67»LB 
D 0*MB 
EX— XX — EA 

NU> TO LB 
N RIGHT X* 



XX 
R*R 



07AE 



SRX*Q *— 0 



—A 
0 LB-X 

R LB*0 
C2 aMM X# "•■"CB 

N RIGHT U 

TEST FOR 
N<X>»0« 



L*R 
R3*U 
VL*WL 
W*G 



OX — CC 



SET N<4> INTO G 



NU> NOT ZERO 

XO <— 07B0 



L*R 

SRX*Q 
B R3*U 
B VL*WL 
B W*G 
D LB~1 

0 LB*0 



X-BIT SHIFT LOOP 



00 



07AC 



0$ mm \IC 



FIRST X-BIT SH« 
SET Hi*)* 



A R*R 

A SR1*Q 
D LBHL 

R 0 LB»0 



OPND NOW IN R 



ALL SHIFTS ARE DONE BY 
0*3 X-BIT SHIFTS FOLLOWED 
BY 0-15 4-BIT SHIFTS. 

1-BIT SHIFTS ARE COUNTED 
IN LB - 4— BITTERS IN 62* 
N<4> IS OBTAINED BY 
SHIFTING N (IN R) 2 BITS 
RIGHT* THEN THRU MVR TO G2. 



a 
j 
o 
e 
o 



4-BIT SHIFT LOOP 




mmm 07AD 



D 

L c 

R 

E7-~ 



SR4*F 

G-X 

VStEtLSA 
LS*L*LS 
E*S47 

G2/MB3 X 

*X —EG 



OP BUF TO L 
SET STATS FOR 
X-FETCH OVLAP* 
SHIFT U 



OVERSHIFT ONE 
4-BITTER. 



| NO MORE 4-8IT5 

XX — 07AF 



R+R 



1 



A F*SL4*F * 

L FN ♦MDH.S A I 
L R*L5 I 
S IA+0/2+A i 
R I-PETCH [ 
J7— sWi — UG 

£XCPNaiA(30)*A 
EXCPNQ(XA(30)#REF)*B 
SHIFT LEFT 4 
TO COMPENSATE 
FOR OVERSHIFT 
STORE RESULT 
QVLAP I-FETCH 



-aTxxc 

COOtOXtXOtXX) 
I-FETCH 



G2/MB3 BRANCHES WHEN G*0 
(N(4)«0> SINCE MB WAS SET TO 2ER0 
AND DOES NOT ENTER INTO BRANCH 



I MACH C2030 

254760 X2/2X/64 NAME 

255449 09/20/65 MODE MANUAL 

j P.N. 5304770 

t IBM CORP. SDO 



DATE 
LOG 



X0/0X/65 
902 



SHEET 
VERSION 



X QJ080 



SHIFT RIGHT LOGICAL (SRL5 



<U0U«*AE« 
(X001XX) 
SECOW) LEVEL 
I-FETCH 



XOOXXX 



0726 



A R*R 

A $RX*Q 
B R3*U 
B U+W 
B W67*LB 
B 0*MB 

01— XX ~GA 

N(X) TO LB 
N RIGHT X. 



XX 
R*R 



08D2 



SRI*Q 



D LB-X 

R LB*0 
G2«— X* — -G8 

N RIGHT X 

TEST FOR 
NU)«0* 



MO X-BITTERS 



XX 



08D5 



L*R 
R3*U 
B VL*WL 
B W*G 

C3— 
SET N<4> 



01 — CC 
INTO G 



FIRST X-BIT 
XO — 



0804 



L»R 



B 
B 
B 

D _ 
R 0 
** 



R3*U 
VL*WL 
W*G 
LB~X 



SLX^a 



LB«0 
0* «—JC 



SET N<4)XNTQ G 
SHIFT OPND 

X BIT LEFT 

TO R 



X-BIT SHIFT 
LOOP 



I 



00 



08D0 



A R*R 

5LX*0 

D LB-X 
I 

R 0 LB»0 

0* «<H¥D 



o 
9 



FINISHED* 



0603 



R*R 

F*SR4#F 
FNtMDKSA 
R*LS 
XA40/2*A 
I-FETCH 



E7*"** 



•am 



308k **HEG 



EXCPNQXA<30)*A 

EXCPNQ(IA(30)*REF)*B 

COMPENSATING 

RIGHT 4 
STORE RESULT 
OVLAP I««FETCH 



TECHNIQUE IS TO 
SHIFT 4 WHILE 
TESTING* THERE 
WILL ALWAYS BE 
AN OVERSHIFTt 
LAST CYCLE 
COMPENSATES* 



SHIFT 4 LOOP 



ox 
xxxo 

R*R 

SL4*F 
G~X 

WS«E*L5A 
L5*L*LS 
E*S47 

G2/MB3 X 



L 
C 
R 

N7— 



J^Cj, IIPHIiPlf\J£j 



OP BUF TO L# 
SET STATS FOR 
I-FETCH OVLAP • 
SHIFT 4« 



SINCE MB WAS SET TO Oi 
G2/MB3 BRANCHES ONLY ON 
G»0 CIE N(4)*0)» 



\ MACH C2030 
254760 X2/2X/64 I NAME 

23344* 09/20/65 j MODE MANUAL 

P.N* S36477X 

XSW CORP# SW 



I DATE 
! LOG 



X0/0X/63 
902 



SHEET 
VERSION 



SHIFT LEFT LOGICAL (SLL) 



X CU090 I 



FJ532>Q SPILLS TO Qt 

enters from f 
but docs not 

SHIFT F* 



OJOXX.AAE-— ■ 
UOIOXX) 
SECOND LEVEL 
X-FETCM 



^XOXOXX — 072A 
A R*R 

A SRX*Q 
B R3*U 
B U*W 
B W67*LB 

C L<0>H,SGNS 

R L(0) 

El— *X — €A 
SET NU> TO LB 
N RIGHT X* 



OPND NEGATIVE 

XX — 08AA 
E XXIX 
A R^R 
—A SRX*0 
B E*WR 
B VR*F 
D LB-X 

R LB-0 



N RIGHT X* 
ONES FOR FILL 



X* — CC 



SET 



OPND POSITIVE 

OX — O8A0 

A R*R I 
—A SR!*0 
B WR*F 
D LB-1 

R LB»0 



FIRST X-BIT SHIFT 
XO — 08A6 

A LK 

■A P*SRX*0 
B R3*U 
B U*W 
B WR*G2 
D LB-X 

R LB»0 
E4~ X* ~-€f> 

RIGHT X. 
0*0 N(4) TO G2* 



MO X-BIT 
SHIFTS 

B R3*U 
B WR*G2 



08A7 



PROCEDURE HERE IS 
TO TEST BEFORE 
SHIFTING 4« AND 
TO STORE RESULT 
AFTER EACH SHIFT* 



RIGHT 4 LOOP 



00 



0880 



NO MORE X-BIT 
SHIFTS* STORE 
RES* TEST N<4>* 

XX — 08A5 



A 
0 
L 
t 



XX — LD 
N<4> TO G2* 



L*T 

G2-X 

FN*MD*LSA 
L*LS 
SETCRALG 
AO<B«X)*A 

0 G2»0 

004CR 



C 
R 
R 

L5~ 
IF T»0* . 
IF T<0« OX*CR 

if ocr* xo+cn 



L*L 

F*SR4 

G2-X 

FN«MD*LSA 
L*LS 
SETCRALG 
AQ(B«X)*A 
0 G2*0 

IF T«Ot 00*CR 
IF T<Ot OX*CR 
IF 0<T* X0*CR 



ALGEBRAIC RIGHT SHIFTS 
PUT 0000 OR XX XX INTO 
F« THEN ENTER FROM F 
TO ENTER THE SAME BIT 
AS THE SIGN BIT OF THE 
OPERAND* 



RIGHT X LOOP 

XO — • 08A4 

i i 

A L*L i 

F»SRX<*Qh 
D LB-X | 

R LB*0 I 

RIGHT X* 



STORE RESULT* SET 
CR IN CASE N(4) 
IS ZERO* 

TEST N(4)» 



FINISHED 



-•ajxxc 

(XX) 
I-FETCH 



a 

J 
X 
0 
0 



234760 
255449 



X2/2X/64 
09/20/65 



MACH 
NAME 
MODE 
P*N* 

IBM CORP. 



C2030 

MANUAL 
3364772 

SOD 



DATE 
LOG 



X0/0X/63 
902 



SHEET 
VERSION 



X QJXOO I 



SHIFT RIGHT ALGEBRAIC (SRA) 



NEG«N1 NONZERO* 



CUOXX.AAE- 
(XOIXXX) 
SECOND LEVEL 
I-FETCH 



XOXXXX 



072E 



R*R 

A SR1*Q 

B R3K! 

B U*W 

B W67+LB 

C L(0)*LSGMS 

EX— XX ~€A 



XX 
OOOl 
R»R 

SRX*0 

WR*F 
LB~X 

E(X3)*WFN 
LtO) LB»0 



088D 



XO 



088A 



BCvi 

B R3+U 
B U+W 
B WR*G2 
D HOT X* ADDER 
R 0 0 
^3*""* 00 ***^AC' 
SAVE CAR(O) V 
CARU) 



F INITIALLY ZERO FOR ENTER 



POS* NX NON-ZERO* 



LEFT 1 LOOP. 



E2— ** ««€B 



SET WFM TO OR* 
CLEAR Ft 
N RIGHT X. 
TEST SXGN*NCX>. 



FIRST LEFT X* 

00 — 0888 

1 

A L*L 
— * P*SLX*F 
B R3+U 
B U*W 
B WR*G2 
D LB-1 

R LB«0 
E4— X* —ED 



XO 



08AC | 



PQS*NX*0. 



I 



OX 



0889 



NEG OPNDS ARE 
COMPLMNTD * SHIFTED * 
AND RECOMPED.TMXS 
EASES OFLO SENSING 



B R3*U 
-B U*W 
B WR*G2 



A LH. 

F*SLX*FI- 
D LBHl i 

i LB»0 ! 

SPILL TO F* 

Hit) NOW ZERO* 

XX — 08AD 

I L*T 

W*MMB 
D G2-X 
—I 

R G2*0 
G5~ X* ~-G£ 
CLEAR BYTE IN 
M FOR OR OF 
OPLO DIGITS* 



0 



XX ~JD 



NEGtNl ZERO* 



XX 



088B 



A H>L 
HB R3»U 
B U*W 
B WR*G2 
D HOTX*ADDER 
M4~ XX — ND 



COMPLEMENT* 
CARRY ONLY IF 
MAX NEG NUMBER* 



LEFT 4 LOOP* 



XO 



08AE 

I 
I 

3L4*F - 



t 5 

I A L*L 

j A 

I B MD*F*U MMB* V . 

OS VL+WL ?*WR i 

i B W*MMB { 

! D G2~X I 

R G2*0 I 



E8m** 



LEFT 4* OR OFLO 
FROM LAST SHIFT 
INTO BYTE IN M* 



! 

1 

I END SHIFTING • 
SENSE OFLO 



li 



XX 



08AF 



MD*F*U MM8*V 
VL*WL ?*WR 



R LSGNS T(0) 

QR-D OFLO FROM 
MtWITH LAST 
FROM F f THRU 
MOVER* SENSE 
TSGN FOR OFLO 
INTO SIGN* 
FORCE CORRECT 
SIGN* 



XX 
OOOX 



0887 



E 

* ..JVC -SGN* 
D HOTX LADDER 
L FN*MD#LSA 
L L*LS 
C E(23**CR 
R 80<A*05*B 
R WR«0 CCAR) 
A7~ m —AG 
SAVE CARC05 * 

CAR ( X ) 
RECOMPLEMENT 
STORE RESULT 
OFLO IF STORED OFLO 
OR IF RESULT IS 
MOT MAX NEG NUMBER 



^ OX — 0883 

A L*L 
CHA +SGN+ 
L FN*MD*LSA 
L L*LS 

R X 
E7~ OX — € 
POS* FORCE <f 
SIGN* STORE 
RESULT* 



A 

I ID 



TSGN WAS NEG - 
OVERFLOW. 



OFLO* 



— 0881 



T SIGN OK. 



00X0 
SGN4M 

SR4*P 

0*MB 

j 0-C EU3)*WFN 

| G8— XX 
I SET UP FOR TEST 
OF PGM MASK. 



XO — 0886 

-LH, 1 

-SGN* 
HOTX LADDER 
FNtMDKSA 

LH,S 
SETCRALG 
WR»0 X 



J 



*1 ~JG 



IF T»0* 00*CR 
IF TLO* OX*CR 
IF OLT* XO*CR 
NEG* RECOMPL* 

SET CR* STORE 

RESULT 



I 

A 
»-L 
L 
C 



00 



0884 



L*T 

FN " 



N*MD*L$A 
L*LS 
SETCRALG 
R WR*Q 
N7~ *1 
IF T*Ot 00* CR 
IF T<0* OX*CR 
IF OCT* XO*CR 

POS* STORE 
RESULT* 



~^NG 



aJX0O*LEE- 

ft' 



ajX50*LIE— « 

(OX*XX) 

SLDA 

OVERFLOW TEST 



NO OFLO 



XX — 0883 
XXXO 
L W5*E*LSA 
LSH,*LS 
S IA40/2*A 
9«C E*547 
R I-FETCH 

EXCPNPIA(30)*A 
EXCPNP(IA<30).REPHB 



OFLO 



E 
A 
A 
D 



XO « 
00X0 
S6N*M 

5R4*F 

0*MB 

EU3)*WFN 



XX 



0882 
I 



•(3JJ730* , *""' |, " | " |, **'GMD 
(XX) 

SET COND REG 
TEST MASK 



-QTXX O ■ "L HE 

<00*OX*XO*XX) 
I«^ETCH 



. MACH C2050 
254760 X2/2X/64 NAME 

255449 09/20/65 MODE MAWAL 

P.N. 5364773 

IBM CORP. SDD 



DATE 
LOG 



X0/0X/65 
902 



SHEET X QJXXO 
VERSION 



SHIFT LEFT ALGEBRAIC (SLA) 



NO 1-BIT SHIFTS 



XI 



LXOOXX 



0732 



WOXXtAAE— 
(XXOOXX) 
SECOND LEVEL 
X«#ETCH 



A R*M 
*#A SRI ♦Q 

B R3*U 
B U*W 
B Vte7*LB 
D 3*MB 
R BQ(A»X)*B 
R MD3*0 0 
Jl~ — \JA 
N(X) TO LB 
N RIGHT 1 



SPECN OK* 

IX — O08F 

A M4^M 

srx*o *—6 

D LB-l 

L FN«MDflX*LSA 
L LS*R*LS 
R LB#0 
62— X* 



LO FROM LS TO R 



B WR*G2 



— 088] 

MM8*V 
VR*WR 



^3* aMa * X I «*— AC 
N<4) TO G2 



4HBXT SHIFT LOOP 



NONZERO 
10 — 



0992 



XX 



08B3 



FIRST X-BIT 
SHIFT - HO 

XO — O8B0 

i L*L 

5RX*Q 
B MMB*V 
B VRtWR 
B WR*G2 
L FN«MD*LSA 
L L*LS 
J3~ XX 
NC4) TO G2 
FIRST SHIFT HO 

It NO ENTER* 
SPILL TO a 



SHIFT LO 
XX 



0894 



CUX30*EAE— 

tOO) 

SLDL 

SPECIFICATION 
VIOLATION 



DOUBLE SHIFT- 
USE CUF TO COUPLE 
REGISTERS* 

USE L FOR HO 
R FOR LO 



ODD REG ADDR 

00 — - 088C 
0X10 
B E+WR 
W*MDtF 



N2— OX — H$ 
SFECN TRAP 
CODE 6 



R*R 
LB~X 



a*SRX*ai*— 0 



LB*0 I 
X* ~JD 
SHIFT LO X 
ENTER BIT FROM 
a THAT SPILLED 
OFF HQ* TEST* 
COUNT DOWN NU> 



A L*L 
—A SR4*F 

D G2-1 
— t FN*MDOX*LSA 
L R+LS 
R AQ<B«0)*A 
R 0 G2*0 
05— ** ~G£ 
STORE LO RESULT 
IN CASE NO MORE 
4-BIT SHIFTS* 
HO WAS STORED 
ON PREV CY» 
SHIFT HO 4* 



Hit) STILL NQN-2ER0 
SHIFT HO 

XO — 08B2 



R+R 

F*$R4*F 
FNtMD*LSA 
L*LS 



E7— XX — E6 
STORE SHIFTED 

HO RESULT* 
SHIFT LO 



TEST N<4> 



FINISHED 



«aj|30 G EE 

X-FETCH 



L*L 

SRX*a 
FNfMD^LSA 
L*LS 



SHIFT ONE LOOP 



XX — LE 
SHIFT HO X* 
STORE SHIFTED 
HO AS RESULT 
IF N<4) 2ER0* 



-QT3XC 
(OX) 
PROGRAM TRAP 



254760 
2S5449 



X2/2X/64 
09/20/65 



MACH 
NAME 
MODE 
P*N* 

IBM CORP. 



C2050 

MANUAL 

5364774 

SDD 



DATE X0/0X/65 
LOG 902 



SHEET X QJX20 
VERSION 



SHIFT RIGHT DOUBLE LOGICS. 
(SRDL) 



ODD REG ADDR« SPECN VIOLATION 



(00) 

SPECIFICATION 
VIOLATION 



CWOU.AAE-—- 
UXOXXX) 
SECOND LEVEL 
I-FETCH 



R3HJ 
U*W 
W67+L& 
3*MB 
MD3pO 



0736 



SRX*Q *— 0 TEST SPECN 



EX— 

N<X> TO 
N RIGHT 



*0 

LB 
X 



SPECN 



OK 
10 



088E 



M*M 

SRX*Q 

LB-X 

FNtMDOI*LSA 
L5*R*LS 

LB*0 



LO LEFT X 
FIRST TIME 
XO — 

I 

A 



08B4 



SHIFT X LOOP 



X* — <5B 



aUX20*GEE<- 

iOi) 

SRDL 



R*R 

3LX*Q , 
MMB*V 
VR*WR 

WR*G2 

PN*MDQI*LSA 
R*L$ 
(J3«**p» XX •■•'■GC 
SHIFT LOt 
STORE SHIFTED 
LO AS TENTATIV 
RESULT 



B 
B 
B 

L 
L 



Nl 



XX 



0893 



A L*L 
—A Q*SLX*FI 
D LB-I I 
I ! 
R LB-0 I 

G4-- X* — GD 
SHIFT HO* ENTER 
HO BIT OF LO 
FROM 0 



NO SHIFT 



08B5 



L*T 



MMB*V 
VRfWR 



B 

B WR*G2 
I 

N3~ XX ~NC 
N<4) TO G2* 



XO — 08B6 
I 

R*R 1 

slx^o h 

FN»MD8X*LSA 
R*LS j 



SHIFT LO X* 
STORING SHIFTED 
LO AS TENTATIVE 
RESULT 



I 
A 

O—A 



XX 



LEFT DOUBLE 
LO IN R 
HO IN L 



08B7 
I 

R*R i 

SL4*F I*— a 

G2-X 

FNtMD*LSA 
LH.S 

0 G2»0 



D 
L 
L 
R 

M5~ 0# ■"■■WE 
SHIFT LOt STORE 
PREV HO AS 
TENT* RESULT 



Nt4> 



NOT 2ER0 
00 — 0890 



OX — 089: 
XXXO 
L W$«E*LSA 
— L L$*L*LS 
S XA+0/2*A 
C E*547 
R I-FETCH 
N7— m — -NG 
EXCPNGIA(30)*A 
EXCPNa(IAt305*REF)*B 
IHPETCH CYCLE X 



-QTXXO- 



-NGE 



(OOtOXfXOtXX) 
I-PETCH 



A L*L 1 
A F*$L4*F|« 
L FNtMDOXH-SA 
L R*LS I 



Q6~ XX 
SHIFT HO* STORE 
PREV LO AS 
TENT RESULT* 



4-BIT LOOP 



NOTE THAT THE 4— BIT 
SECTION SHIFTS ONE 
PORTION WHILST 
STORING THE OTHER* 

THUS» ON TERMINATION • 
AN OVERSHIFTED LO 
IS FORMED BUT NOT 
STORED* 



a 

J 
X 
3 

0 



I MACH 

254760 X2/2X/64 | NAME 

255449 09/20/65 I MODE 



P*N. 

IBM CORP* 



C2050 

MANUAL 

5364775 

SDD 



DATE 
LOG 



X0/0X/65 
902 



SHEET 
VERSION 



X CUX30 I 



SHIFT LEFT DOUBLE LOGICAL 
<5LDL> 



RJGHTHD0U8LE- ALGEBRAIC* 
HQ IN L* 

lo m R* 

MUST FILL (ENTER INTO HO) 
WITH ZEROS IF POSt 
ONES IF NEG# 



N(X> NOT ZERO 



10 
L*L 



0896 



OX 



06A9 



CUOUtAAE- 



sickw** 



XXXOXX 
R*M 



073A 



A 

LEVEL A SRX*0 

I -FETCH B R3*U 

B U*W *— "0 
B W67*LB 
D 3*MB 

L PNtMDQX»LSA 
L LS*R*LS 
R L(0) 

Ji~ *X —JA 

mi) TO LB 
N RIGHT X TO M 
LO TO R 
BRNCH ON SIGN 
(HO BIT OF HOt 
IN L)t 



A M*M 
-A SRX*Q 
B WR*F 
D LB-X 
R BO(A«0)*B 
R MD3*0 LB«0 

ijofr «*HE8 



F*SRX*G 
MMB*V 
VR*WR 



B 
B 

B WR*G2 

A3— XX —AC 
HO RIGHT 1 
N(4) TO G2 




LAST LO SHIFT 4 



SHIFT 1 LOOP 



XX 
k R*R 



mmm 0898 

q*srx*q 



ZERO TO F 
TEST SPECN 



XX 
XXXX 
M*M 

srx*o 

E*WR 

WR*F 
LB-X 

BQ(A«0)*B 

MD3*0 LB»0 



08AB 
I 



POSITIVE OPND 

IX — 0897 

8 MMB^VI 
VR*WR 

B WR+G2 



XI —EC 



d lb-x 

R LB»0 
C4— X* —CD 
LO RIGHT X* 
COUNTtTEST NU> 



HO 

I 



XO 



A L*L 



08BA 
I 

f*sri*q|- 



XX — CE 



•I 
A 

D 
L 
Hl 
C 
R 



L*T 
G2-X 

FNtMD*LSA 
L*tS 
SET ORAL G 

G2*0 
G5— X* — GE 
IF T»Ot 00*CR 
IF T<0* Oi*CR 
IF 0<Tt 10*CR 
STORE HO* 
HO OVER BUS* 
SET CRt 

COUNTtTEST N<4) 



NEGATIVE OPND 



N2~~ 



ONES TO F FOR 

NEG ENTER* 
TEST SPECN 



ODD REG ADDR 

01 — 0895 
E OUO 

B E*WR 
W*MD*P 



I 

A 
-A 
L 
L 
R 



XI 



08B9 



R+R 

F*5R4 
FN«MD0X*L5A 
R*LS 

X T*0 

SHIFT* STORE LO* 
BR IS ON HO 
EaU ZERO* 



LO RIGHT 4 



10 — 089A 
XX10 

WStE+LSA 

mh ls*l*ls 

S XA+0/2»A 
C E*S47 
R I-^ETCH 

EXCPN0IA(3O>*A 



XO 



I HO RIGHT 4 



XX — 08BB 

l*~0-4H 
I I A L*L 



XO 



li 



mmm 08BC 

\ 

i 

F*SR4*F i 
MD tF*U I 
U*V I 
B W*MMB 
D G2-X 
L FN tMD*LSA 
L L»LS I 
C SETCRALG I 
R G2p0 I 



IF T*OtOOKR 
SHIFT % STORE 
SHIFTED HO* 
COUNTtTEST N(4) 
FILL DIGIT TO M 



08B8 j 
SR4 «J 



A R*R 
pH-h— A F*SR4 
B MMB<*V 
B VR^WR 
B WR+F 

£7— XO —CO 
SHIFT LO* 
RESTORE FILL 
DIGIT FROM M* 
F SHARED BETWEEN 
FILL (HO SHIFT) 
AND COUPLE (HO 
TO LO) * HENCE 
NEED TO SAVE* 
RESTORE FILL IN 
M BYTE* 



HO ZERO* TEST 
LO FOR CR ADJ 

XX — 089B 
E XXXO 
L WStE+LSA 
0-L LSH,*LS 
C E*S47 
I 

R T«0 
08— X* — GH 
BRANCH ON LO 
ZERO* OVLAP 
ALL BUT IAR 
FOR I-FETCH CYX 



SHIFT 4 LOOP 



NO 4-SHIFTS 
XX 



08BD 



R*T I 
FNtMDQX*LSA l*>« 
L R*L5 i 



I 

T«0 I 
X* — LF 



i I 
a3— ox — ac 



E 
L 



EXCPN0(XA(30)*REP>*B 



LO NOT ZERO* 
XO — ' 
00X0 
IA+0/2*A 
G(23)*CR 



E 
S 



06BE 



n 



I-FETCH 

EXCPN0IAC30)*A 

EXCRNQUA(30)*REF)*B 
REVISE CR TO 
XO - PLUS* 
I-FETCH CYX 



-QTXXO ! CHE 

(OOtOXtXOtXX) 
I-FETCH 



LO ZERO* 
S XA+0/2*A 



08BF 



I 



R I-FETCH I 

EXCPN0IA(30)*A 

EXCPN0(IA(30)*REF)*B 
CR IS OK - 
ALREADY ZERO 



-0T3XC 
(OX) 
PROGRAM TRAP 



0 
J 

1 

0 



QJX50*EHE— — 

(XOtXX) 

SLDL 

SET COND REG 



254760 
255449 



MACH 
NAME 
MODE 
P*N* 

IBM CORP* 



C2050 

MANUAL 

3364776 

SDD 



DATE 
LOG 



X0/0X/65 
902 



SHEET 
VERSION 



X 00X40 I 



SHIFT RIGHT DOUBLE ALGEBRAIC 
(SRDA) 



ODD REG ADDR 



OJOXX*AAE-— « 
CXXXXXX) 
SECOND LEVEL 
I-FETCH 



I XX XXX 



073E 



A R*M 

A 5RX*0 
B R3*U 
B U*W 
8 W67K.B 
D 3*MB 
L W5XH.SA 
L L*LS 
C LCO)H,SGNS 
R MD3«0 

CI— *X — CA 

HO TO LS (WSX) 
Mi) TO LB 
N WIGHT I 
SET SIGN L STAT 
TEST SPECN 



OX — 08C0 
E 01X0 

B E*WR 
W*MDtF 



XO 



08A2 



XX 



A2— OX — AB 
PROG TRAP WITH 

CODE 6 ~SPECN 
TO PAGE QT3X0 



*— 0 



XX 
OOOX 



08C2 



srx*o 

WR*F 
LB-X 

FNtMDQX+LSA 
LS*L*LS 
E(X3)*WFN 
L<0) LB*0 



E2— 



** «~€B 



BCO 

MMB*V 
VR+WR 

WR*G2 

HOTX*ADDER 
WSX*LSA 
LS*L*L5 
A3— XX —At 
SAVE CAR FROM 0 
NEGATIVE 
N(4) TO G2 
COMPL LO TO R 
HO TO L 



B 
B 
B 

D 
L 
L 



08CX 



BCvfe 

C ST AT* ADDER 
WS1H.SA 
L*LS 

A4««*» XX •""AD 

SAVE CAR(Q) V 
CAR(X) 
COMPL HO TO Lt 
STORE IN WSX 



-A 

D 
L 
L 



XX 



089E 



R*L 

SLi*a 

LS*R*LS 



L 
L 

AS— XX — AE 
LO LEFT X TO L 
HO FROM WSX TO R 



00 



08A0 



A L#L 
•"■0 , ' |, " |, ""^A SLI^O 
B MMB*V 
B VR*WR ** 

B WR*G2 
L W5X*L5A 
L L$*R*LS 
E3— XX — Efc 
HO TO R FROM WSX 
LO LEFT X 
COUNT t TEST N(X) 



l: 



•X-BIT LOOP — LO 



XX 



08CE 



R+R 
LB~X 



OtSLX-tF 



I 



XO 



A L#L 



R LB*0 

HO LEFT X* 
SHIFT Ft CATCH 
OFLO IN F t 
COUNT t TEST N(X) 
FROM HERE ONt 
HO IN RtLO IN L 



POSt 



B 

L 
L 



N(X) 
OX « 



2ER0 
— 08AX 



mii TO LB 
N RIGHT X TO M 
LO TO R 
BRNCH ON SIGN 
(HO BIT OF HOt 
IN L)# 



MMB*V 
VR*WR 

WR*G2 
W5XH.SA 
... LS*R*LS 
J3— XX — JC 
HQ TO R FRM WSX 



08C8 



SLX*0 



E5— 
LO LEFT X# 
0 USED FOR 

COUPLE 



xx 



08C9 



B 
~B 

D 
L 
L 
C 
R 

J5— 



R*T 

MDtFHJ 
U*W 
W*MMB 
G2~X 

FNtMDQX*LSA 
L*LS 
<T«0)*S3 

G2*0 
X* ~JE 



XX 



08A3 



NEG NUMBERS ARE 
COMPLEMENTED t SHIFTED* 
THEN RECOMPLEMENTED TO 
SIMPLIFY OFLO SENSING* 
MNN WILL OFLO IF N NON-ZERO* 



H>R 
BCO 

B MMB*V 

B VR#WR 

B WR*G2 

D HOTX*ADDER 

L WSX*L$A 

L LS«*L*LS 

N3— XX — NC 

SAVE CAR FROM 0 
COMPL LO TO R* 
HO OUT TO L 



XX — 08C3 

I 

A 

L 
L 

N4— XX — ND 
COMPL HO TO L 
STORE LO IN WSX 



08CC 



~L*L 

CSTAT*ADDER 

WSXH.SA 

R*LS 



XX 

I 

A L*R 
•8 W*MMB 
G2-I 
WSX*LSA 
LS+LKS 

G2*0 
Xtf* — NE 
FROM WSX 
OVER 



D 
L 
L 
R 

LO TO L 
HO TO R 

BUSt 
COUNT * TEST N(4) 



a 

i 

o 



SHIFT 4 LOOP 



I * ai *"L0 



XO 



08CA 



I A L*L 

0— «A 5L4*F *** 

B MDtFKl MMB*V 
B UL*WL ?*WR 
B W+MMB 

C6— XX —CP 
LO LEFT 4 IN L 
OR PREV HO OFLO 
TO M BYTE# 



A 

*A 
D 
L 
L 
C 
R 



XX 



R*R 

F*SL4*F 

G2-X 

FNtMDQXKSA 
LJLS 
(T«0)*S3 

G2< 

C7— X* 
HO LEFT 4 IN R 
CATCH OFLO IN F 



08CD 

^♦F — J 

LSA I 

I 

2«0^ 



SET S3 ON H0«0* 
COUNT t TEST N(4) 
STORE LO AS 
TENTt RESULT t 



POStHO BIT 0*0* 



00 
E XUX 
A L*T 



089C 



*— 0» 



BP(ApO)*B 
R WR*0 S3 

Ai JU tS Lt 

Co*" - * Wm m tn 

LO OVER BUSt 

TEST OFLO FROM 

MOVERt 
S3 ON IF HCNOt 

CR FIXUP MAY 

BE NEEDED t 



NO OFLO* TO 
PAGE CtJ140 



(XO) 
COND REG OK 
(XX) 

HO ZERO « 
TEST LO 



-0T3XC 
(OX) 
PROGRAM TRAP 



SHIFTS FINISHED 



XX 



08CB 



B 
B 

L 
L 
C 
R 
R 



R*T 

MOtF#U MMB*V 
UL*WL ?*WR 
W*MMB 
FNtMD*L$A 
R*LS 
SETCRALG 
BQ<A*X)*B 
LSGNS T(0) 

FINAL OR OF OFLO 

TO M BYTE* 
HO OVER BUSt SET 

CRt STORE HO* 
TEST ORIG SIGN* 

BIT 0 OF HO* 

IF T«Ot 004CR 
IF T<Ot OX^CR 
IF 0<Tt X<HCR 



POSITIVE 



POStOFLO INTO 
HO SIGN* 

OX — 089D 



R+R 

+SGN+ 
PNtMD^LSA 
R*LS 



OVERFLOW. 



0899 



NEGATIVE 



XX 



089F 



«L»R 
BCO 

D HQTX*ADDER 
L FNtMD^LSA | 
L LS-*L^LS 
R T(0) I 

M7— X* — N6 
SAVE CAR FROM 0 

RECOMPL LO TO R 
HO TO L FROM LS 
SENSE BIT 0 OF 
RESULT 



OX — JH 
FORCE 0 INTO HO 

SIGN t STORE 
REVISED HO* 

XO — 08C4 
E OOOX 
A «OL 
—A -SGN* 
B MMB+Vl 
B VR*WR 
D CSTATMDDER 
L FNtMDfilX^LSA 
L R^LS 
C E(23)*CR 
R X I 

LO' 1 **" XX •"•■■LH 
RECOMPL HO TO L 
STORE LO 

SENSE STORED OFLO 



OX 
00X0 
A SGN*M 

SR4*F 

D O^MB 
r*C E(X3)*WFN 

J9— XX — Jl 
SETUPS fW PGM 

MASK TEST - 
TO TRAP OR NOT* 

( XX — 08C7 

L FNtMD^LSA 
L*LS 



XX — - 08C5 
E OOOX 
A M-*L 

BCVC "»SGN* 
MMB*V 
VR^WR 
CSTAT4ADDER 
FNtMDOX^LSA 
R*LS 
£<23)*CR 

(CAR) 
08— X* ~0H 
SAVE CAR(O) V 

CAR(X) 
BIT 0 WAS Xt 
FORCE OFLO UNLESS 
RESULTwMNNt 



B 
B 

D 
L 
L 
C 
R 



■OB?: 

SET COND REG 
TEST MASK 



IE 



R WR*0 X 
L9— *X -H.I 
STORE HO 

SENSE STORED OFLO 



-QJXX O L IE 

(OX) OVERFLOW 
(XX) I-FETCH 



NOT MAX NEG NO 



XO 

I 

L FN«MD*LSA 
L*LS 



08C6 



OX """"QI 

STORE HO 



254760 
2S5449 



X2/2X/64 
09/20/65 



MACH 
NAME 
MODE 
P*N* 

IBM CORP* 



C2030 

MANUAL 

5384777 

SDD 



DATE 
LOG 



X0/0X/65 
902 



SHEET 
VERSION 



X QUI 50 



SHIFT LEFT DOUBLE ALGEBRAIC 
<SLDL>* 



GWOlltAAE-— 
(OOOOXX) 
WlOXX) 
SECOND LEVEL 
I-FETCH 



LPSW 
OOIOXX 



070A 



QT310*JEE— 
(01) 

TRAP SEQUENCE 



QU100.NGE- 
(01) 
PSW RESTART 
IPL 



R*R«AD 



R PROB 1 
Ci— *1 — CA 
CHK DBL WD ADR 
ADDR TO SARt 





01 — Q75: 
0111 
D*L 
0*LB 

WSfE*LSA 

T$lw 
E4— XX — •€& 
T(12-15)*PSW 
CONTROL BITS 
PSW MI ORD» 
SET BITS 12-15 
STORE IN WS7 
(PSW BACKUP ). 



XX — ■ 

oon 

fH4*R<A 
LLB*U 
U*W 

W*PSWO 
EtSCANCTL 



0731 



E5— 



xx — ee 



FETCH LO PSW# 
SET BITS 0-7t 
RESET IGNORE 
ERR I/O TRIG 
(ONLY HAS 
MEANING FOR 
MACHINE CHECK 
TRAPS I 



XX — 0733 
E 0U1 
D D*L 
WSfEtLSA 
LS*R*LS 



c6** XX — €F 
LO PSW TO L» 



XX 



0735 



R*MtSP 
LLB*U 
U*W 

W27*PSW4 



B 
B 

E7— 10 
L BYTE 0 TO 

PSW 34-39 
SET BITS 8-11 



-€GE 



*— EG 



•QA700— 
(10) 
BRANCH WITH 
CONTENTS OF L 



(SP) 



W27*FSW4 TURNS OFF LOAD LIGHT 
THIS IS THE OFFICIAL END 
OF THE IPL SEQUENCE t 



NOT HON MODE 

11 — * 0753 
0010 
B E*WR 
B W+MDtF 



-QT31C 
(OX) 
PROGRAM TRAP 



J3~ OX 
PRIV OP TRAP 
CODE 2 



I 



00 



0750 



D D*L 



SSM 

OOOOXX — 0702 

A R^RtA 
B R3*U 
B U*W 
B W$7*L8 
D 0*MB 
R Bfl(A*l)»B 
R PROB 0 
Nl—» ** — NA 

SET LB TO BYTE 
ADDR* 



|_4«ww XX —CD 



XX — 072D 
0111 
LLB*U 
l»W 
W*MMB 
WS*E»LSA 
L3*R*LS 
L5— XX — <LE 
NEW PSW 0-7 
TO M BYTE 0* 



E 
B 
~B 
B 

L 
L 



XX 

E 0111 
A M*RO 

LLB*U 
B U*W 
B W*PSW0 
L WSiEKSA 
L R*L$ 
L6— IX 
SET INTO PSW 

0-7 • 
ALSO INTO PSW 
BACKUP BITS 
0-7» 



072F 



•QK66 
(IX) 

DEAD CYCLE 
THEN I— FETCH 



— LF 



2 
0 
0 



PSW DISPOSITION IS - 
0-7 SYSTEM MASK (HDW) 
8-11 STOR PROT (HDW) 
12-15 MISC BITS (HDW) 
16-31 LOST - GENERATED 
ONLY FOR TRAP IDt 
32-33 ILC * NOT LOADED 
34-3* COND REG PGM MASK (HDW) 
40-63 INST ADDR* (IARU 



PSW BITS 0-15 ARE 

MAINTAINED IN DUPLICATE 

IN WS7 FOR PSW ASSEMBLY. 
PSW 32*39 READS TO MOVER 

BY PSW4*U# 

W27+PSW4 SETS PSW 34-39# (32-33 -ILC- IS 

SET BY T*MLJK - I-FETCH)# 
T*PSW SETS 12-15 FROM LATCH* W*PSW0 SETS 0-7* 
T*MtSP SETS 8-H (STOR PROT) •ALSO Mt FROM T« 



\ MACH C2050 

254760 12/21/64 NAME 

255033 02/24/65 MODE MANUAL 

255449 09/20/63 { P#N» 5364778 

I IBM CORP* SDD 



DATE 10/01/65 
LOG 902 



SHEET 
VERSION 



1 0J200 



LOAD PSW (LPSW)- 

SET SYSTEM MASK (SSM) 



NORMAL* BXLE 
INDEX WAS HIGH 



OJOXX*AAE— 

toxxoxx) 

(OXXXXX) 
SECOND LEVEL 
I-FETCH 



ADDR IN R* 



BXH 



ouoxx — 

E OOOX 
A R*M 
**L FNtJ^LSA 
L LS*R*L5 
C S030E 



07XA 



I 

EX~ XX -HEA 
BR ADDR TO M 
INCR TO R 



BXLE 



OXXXXX < 
E OOOX 
A R*M 
—t FN*J*LSA 
L LSWLS 
C S03*«iE 

LX-» XX « 
BR ADDR TO M 
INCR TO R 



07XE 



XX — 073F 

I 

A R"H»*L 
WR*F 
L FNtJGXH.SA 
L LS*R»LS 



02*— XX — GB 
INDEX+XNCR TO L 
CLEAR F 
CRXT TO R 



I 

A 
•A 
D 

L 



XX 



07B2 



R~L*T 

BCVC F*SLX*F 
HOTXfADDER 
FNtMD^LSA 
L L*LS 
R S3 (CAR) 
03— m — GC 
SAVE CAR(O) V 

COMPARE NEW X 
(IN L) WITH 
CRXT (IN R)« 
SIGN OF RESULT 
TO F (BY SHIFT) 
SENSE OFLO* 
STORE NEW X* 



MD - INDEX (RX) 
J - INCR (R3) 
**X- CRIT 



STAT 3 ON FOR BXH 
OFF FOR BXLE* 



BRANCH OCCURS IF UPDATED 
INDEX IS (HIGH) (LOW OR ») 
COMPARED TO CRIT* 



00 
I M*R 



0700 



R F«0 
A4~ #X •■"•A]* 



OFLO BXH* 
X WAS LOW* 

XX — 

M*R 



0783 



R F-O 

E4— *X mmJEt 



OFLO BXLE 
X WAS LOW 



I 



OX 



078X 



A M«*R 



L« FW ° 



#X ~-Ld 



NORMAL BXH 
WAS HIGH* 



I 



XO 



0782 



A M*R 



R^F«0 



$X ~QD 



BRANCH ADDRESS 
TO R 

QA70Q»NDE ■ ■■■ ■ ■ — - » « ■ ■ ■ ■ ■ ■ - . - - , , „ ■ „„■ ■ ■ , ■ ■ „■■ ■■■■ » ■■ ■■ „ ■ „ ,, ,, ,„■„,„ „ .,,, — . - « „ „„, 

(OXtXX) 

BRANCH ON 
a COUNT 
J 
6 
0 
0 



OX ~~ 07X 
10 E XX XO 

L W3*E*LSA 
— L LS*L*L$ 
S IA40/2*A 
C E*S47 
R I«-FETCH 
A6*"*» —AF 
EXCFNQIA(30)*A 
eXCPNQ?IA(30)*REF)»B 
I FETCH CYX 



YES 



XX « 
E XXXX 
A R*R«AN 
< E*B5*T30#S3 



07X3 



R EXC 

NO IV ADR TRAP 
BRANCH WITH (R) 



-AFE 



-QTXXO- 
I-FETCH 



"°xJ> 

BRANCH I-FETCH 



-OT20 0 C FE 

(XX) 

EXCEPTION 



NO 



XX — 07X7 
E XXXO 
L WS«E*LSA 
1 LS+UMLS 
S IA+0/2*A 
C E»$47 
R X-FETCH | 

L6~ #* mrn^f 

EXCPN0IA(3O)^A 
EXCPN0(IA(30)*REF)*B 
I FETCH CYX 



YES 



OX «~— 07X5 
E XXXX j 
A R*R*AN | 
£*B$*T30*$3 !« 



R EXC I 

NO IV ADR TRAP 
BRANCH WITH (R) 



I 

I 254760 
I 254765 
I 235449 



I MACH C2050 

X2/2I/64 I NAME 

01/ X 3/65 MODE MANUAL 

09/20/65 I P#N* 5364780 

I IBM CORP* SDD 



DATE 
LOG 



X0/0X/65 
902 



SHEET X QJ600 
VERSION 



BRANCH ON INDEX ( BXH • BXLE) 



NX 



Q J01 X «LC£ 

(OOXOXX) 

(OXOOXX) 

(OXXOXX) 

(OXXXXX) 

SECOND LEVEL 

I-FETCH 

ADDR IS IN «• 

I OPND IN M BYTE X 



LB IS X* 



OXOOXX — 09X2 
E 00X0 
A R*RtA 
0*B R3HJ 
B U*W 
B W67*MB 
C E(X3)*WFN 
AX— XX — *A 



01 



09XA 



OXXOXX 
E OOOX 
A R*R*A 
0-B R3*U 
B U*W 
B W67*MB 
C E<X3>»WFN 
EX— XX — €A 



NONZERO 



OX — 
E OOOX 
C E<23)*CR 



09X0 



C7— 



XI 



09XE 



GEXOO.GBE— 
(XX) 

STORE CHAR 



OXXXXX 
E OOXX 
A R*R*A 
CHB R3*U 
B U*W 
B W67+HB 
C E(X3)*WFN 
JX~~ XX — JA 



SET WFN FOR 0P» 
SET MB FROM ADDR 
START MEM CY 
RESET BYTE STATS 



<^355«GEE— — — 
<XX> 

STORE MALFWORD 



QJ400#NFE— 
IXXJ 

READ DIRECT 



XX 

E 0000 
D D*L 
-C E*BS 



0924 



STORAGE OPND TO L 
RESET BYTE STATS 



I 

A 

~B 
B 
B 

C 



XX 



0928 



R+A 

LMB*U MLB*V 
?*W 
WfMMB 
X*BS*MB 
EJ5***** XX *w*E 
LOGIC OP ON M 
BYTE X AND L 
BYTE X» RESULT 
TO M BYTE Xt 
TURN ON BYTE STAT 
FOR BYTE X« 
START STORE CY 



XX — 
A M*D*BS 



092C 



XX -<G 



*— 0 



R W*0 

E6— *X — EF 
M TO SDR • 

STORE PER BSt 
BRANCH ON ZERO 

RESULT 



ZERO 



XX 

E 0000 
C E<23)+CR 



67— 



09XF 




MVI 



OOXOXX — 090A 
E 0000 I 
A R*A | 
MB R3*U 
B U*W 
B W67»MB 
C E*B5 j 

ax— xx —oa 

SET MB FROM ADDR 
RESET BYTE STATS 
START STORE CYCLE 



XX — 09XC 

B MLB*V 
— B V»W 
B W*MM8 
C X*BS*M8 
I 

02— XX —OB 
BYTE FROM M<X) TO 
MCXW TURN ON BS 
FOR X BYTE FOR 
STORE 




0920 



-OTXOO— 
UX) 

I-FETCH 



-QCE 



03*"** X X * ,w *0C 
M TO SDRt 
STORE PER BYTE 

STATSt 



a 

K 
2 
2 
2 



234760 
2S3449 



I MACH C2050 
X2/2X/64 j NAME 

09/20/65 | MODE MANUAL 

PtN# 536470X 

IBM CORP* SDD 



DATE X0/0X/65 
LOG 902 



SHEET 
VERSION 



X 0K222 



SI MOVE AND LOGICAL OPS 
MVI NI 01 XI • 



ajoiitLCfc— 

(OOiXXX) 

second level 

X-FETC* 



001 XXX — 90E 
E 0000 
A R*A 
— *B R3*U 
B 

15 W6?*MB 
C E+BS 
JX— XX — JA 
T(8-3X) TO SAW 

R<24~3X> TO U 



XX 



C X*BS**B 

I 
I 



904 
I 
I 



J2— 



XX 



XX — 905 

A -X*D*BS | 

I I 
C D*CR*BS | 

"I P 

J3— XX — JC 
SET COND REG FOR 
TEST AND SET 
INSTRUCTION 



XX 
NOP 



907 
I 

i 
i 



xx 

ONES TO STORAGE 
FINISH 



■QTXO O JPS 

(XX) 
I-PETCM 



j 255096 03/02/65 i MACM C2050 I DATE X0/0X/65 SHEET X QK300 f 

I 255449 09/20/65 I NAME j LOG 902 VERSION h 

I MODE MANUAL I 

I j PtN. 5364909 1 TEST AND SET I 

I \ IBM CORP* SDD | I 



ALL TESTED BITS 
2ERQ* 



TM 



QJ0XX*LCE— - 
(OOOXXX) 
(0X01XX) 
SECOND LEVEL 
M*ETCM 



ADDR IS IN R 

T IN BYTE i OF M 

LB IS It 



OOOXXX — 0906 
-*E 0010 
A R^R* A 

B MLB*V 

B V*W 

B W*MD«F 

C E(X3)*WFN s 

EX— XX — EA 
I BYTE (MASK) 

TO MDt Ft 
SET WFN AND* 
START S OPND 

FETCH 



XX — 
XXXO 
R3+U 
U*W 
W67*MB 
D*M 

WS«£#LSA 

LS*LH.S 
E»S47 



093C 



XX — €C 



S OPND TO M* 
SET MB FROM 

ADDR* 
OVLAP STATSET* 
OPBUF FETCH 
FOR I-PETCH. 



XX — 094J 
E OOXX 

B MDtF*U MMB#V 

?*W 
B W^MMB 
C E(I3)*WFN 

^4— XX —ED 
AND BYTEtMASK 
SET WFN EOR FOR 

NEXT TIME* 



XX 



0948 



MDtFHJ MMB*V 
?*W 



£ 0000 
S XA+0/2*A 
< E(23>*CR 



0923 



R I-FETCH 

A?~ «~AG 
EXCPNQIA(3Q)*A 
EXCPNG«IAC30)*REF)*B 



NOT ALL ZERO 



NOT ALL ONE* 
MIXED* 



OX 



0921 



R W»0 

EXCL OR BYTEt 

MASK 
BRANCH ON AND 
EQU ZERO* 



C NOP 3 

1 ~i 

R W*0 R 



w*o 

E(5»"»w« ifrX * p " i EI 
BRANCH ON 
EXCL OR* 



OX — - 
0001 

XA40/2*A 
E(23)*CR 



0925 



I-FETCH 
E7— ** — E6 
EXCRN0IA(30)*A 
EXCPNP(IA(30)*REF)»B 



TESTED BITS 



IX — 0927 
>/2*A 



e 0011 

S IA+Oi _ 
E(23)*CR 



OVLAP I-FETCH 
CY1* 



-AGE 



I-FETCH 

EXCPNPXA(30)*A 
EXCPNQ<IA(30)*REF)*B 



•amo- 

(OOfOlflOtll) 
X^ETCH 



010XXX — 0916 
E 0000 
A R*A 

R3*U 
B U*W 
B W67*MB 
C E»BS 
ai— XX —OA 
FETCH S OPND 
RESET BYTE STATS 
SET MB FROM ADDR 



XX — 0930 
E 001 X 
A «»X*M 

MLB-tV 

B V*W 
B W*MD*F 
C E(X3)*WPN 
02**** XX •"**08 
ONES TO M (TO 
PROPAGATE CARRY) 
I BYTE FROM M 

TO MDt F* 
WFN TO EXCL OR 



0934 



XX 



0938 



B- MOtF+U MMB*V 

mm B ?4W 

B W*MMB 

D D*L 

C 1*BS*MB 

03— XX ~CtC 
S OPND TO L 
COMPL I BYTE 
(BY EXCL OR WITH 
ONES) TO M BYTE 
SET BYTE STAT* 



**4«m*ADDER 
C SETCCW 



-OTIOO > 

(XX) 
I-FETCH 



-ODE 



a 

K 
S 

s 

5 



Q4«*» XX 
IF T*BS»0*00*CR 
IF T#B$#0 AND 

CAR(0)«0t 0l*CR 
IF T*BS*0 AND 

CAR(0)«XtIO*CR 

COMPARE « 
S + (-1) 
WITH HOTX* 



254760 
2SS449 



X2/2X/64 
09/20/65 



MACH 
NAME 
MODE 
P*N* 

IBM CORP* 



C2050 

MANUAL 

5364782 

SDD 



DATE X0/0X/63 
LOG 902 



SHEET 
VERSION 



X QK555 



SI COMPARE (CLI) 

TEST UNDER MASK (TUM)i 



QA0OO*EGE- 
(IX) SSK 



XX 092F 



GU200*LFE- 
(IX) SSM 



aj4oo*cFE- 

(IX) WRD 



~*LM 



NOP 



FINISHED 



nan oo— 

(IX) 
I-FETCH 



-AEE 



A3— XX ~AE 



cwoxuLce 

(OOOOXX) 
UOOOXX) 
SECOND LEVEL 
I-FETCH 



XOOOXX — 0922 

OOOX 
A M^M 

A SL44P 
D 0*MB 
C 503*«,E 



CX— XX —-CA 
S3 OFF FOR LOAD 



R3 TO LEFT DIGIT 
OP M BYTE X 
FOR COMPARE 



STM 



OOOOXX 
E 0001 
A H+M 



0902 



SL**F 



XX « 
E OOXX 
A R+RtAW 
-D MB+X 
C E(X3)*WFN 



094C 



C3— XX — CC 
CHECK WORD ADR 

START FIRST MEM 
CYCLE* 

WFN TO EOR 

X TO MBt 



BRANCH ON RX 
Eau R3# 



LOAD 
I 



OX 



0929 



NOT FINISHED 

A R+4*R«A 
— D MD+X 



092D 



XX 



0954 



XX •"■"•El f 
COUNT MD UP BY X 
INCR STORAGE ADDR 

BY 4 i START NEXT 

CYCLE* 



B MDtF*U MMB*V 
— B ?*WL *— £) 

L FNtMDKSA 
pL LS»L*L$ 

R S3 

E7~» *X —EG 
L$ REG TO Lt IN 

CASE OF STORE* 
COMPARE RXtR3 
(EXCL OR IN MOVER) 

FOR TERMINATION 

TEST 



D D*L 
"t FN*MD*LSA 
L L*LS 



R WL-0 
C8— 



*X —CM 



STORE 



IX 
A U>D 



D 0*MB 
C S03QE 

NX«- XX ~*NA 
S3 ON FOR STORE 



092B 



R WL»0 



/ 



234760 
255449 



X2/2X/64 
09/20/65 



MACH 
NAME 
MODE 
P*N* 

IBM CORP* 



C2050 

MANUAL 

$364703 

SDD 



DATE X0/0X/63 
LOG 902 



SHEET 
VERSION 



X 0K666 



LOAD* STORE MULTIPLE (LM*STM) 



W IS ZERO 



0 
K 
6 
6 
6 



0G300*LDE— 
(OX*XX) 
FLOATING PT 



4+R 

SL4+F 
E+WR 

W67+LB 
MB+1 
WS1+L5A 

Al~ *1 
START I 0 



TEST X 0 

101 XX — 0936 
0100 
B E+WR 
B WR+F 
D MB+1 
C E+S47 
R 8Q(A«1)+B 
R PROB 0 
El— ** — 6A 
PUT TEST CODE 
IN F FOR W+CHCTL 



HALT I 0 
110XX 
0010 



\\m £ 



093A 



B 
B 

0 
I 

R 
Ul 



WR+F 
O+MB 

PROB 



E+WR 



*X — OA 



PUT HALT CODE 
IN F FOR W+CHCTL 



e gyp 

LLB+U 
B U+W 
B W+MMB 
C E(23)+CR 
A2™ XX 



0901 



1140 
fJ+LO 
E+WL 
WL+MD 

E(23)+LSFN 



FETCH COMM ADDR WORD FROM LOC 72 

PUT UA IN LO 



XX ~AC 



E 0#; 

-D D+M 
C E+S03 



XX —AD 



£.9010 
A M+T 



0994 



MMB+V 
VR+WR 
C E+S47 

I I 
if\ J}*"*** X X *"***AE 

SET STATS 4*7 TO 

START CODE 



X 

• X - 
001 
M+R*N 
EU3+WFN 



099S 



01 



fit 



BOCAl^B 
CAW WR^O 
A6~ **»AF 
NO XV AR TRAP 
C2i29~35#0$O 
CIV AD) ♦A 
FETCH CW1 



PRIV OP TRAP 
1 

001 



u — 0903 



B E+WR 
" W+MD*F 



OX «H5B 



R I XVA 
A 7— 1* ~AG 
CAC4-7) C29-*31)*0 



CA(4~7)NQT*0 



TEST CHAN 

1111XX — 093E 

1000 
B E+WR 
B WR+F 
D O+MB 
I 

R PROB 
Nl~- *X — NA 
PUT TEST CHAN CODE 
IN F FOR W+CHCTL 



00 — 0900 
0000 
A R+L 
D 3+LB 
C E(23)*CR 



J2— » OX —OB 



PROCEED 
WITH IRPT 
01 • 
«•■""*£ 1000 
B WR+F 
C E+S47 

R CHLOG 
SI— 



018D 



*X — 5A 



OX 
1111 
R+L 

FSW4+U 
VL+WL UR+WR 
W27+PSW4 
3+LB 
S47riE 



0939 

i 



OX — 093: 
€ 0000 
B LLB+U 
B U+W 
B W+MMB 
£♦503 
R S4 



SEL 

E 
D 



N2— 



OX 



PRIV OP TRAP 

IX — 093B 
0010 
B E+WR 
B W+MD«F 



CHAN LOG 

0101 
IA+H 
3+LB 
HA+A 
E+CH 



OUT 
0933 
I 



OX — 0935 
E 0011 
A M+LO 

MDfF+U 
B VL+WL UR+WR 
B W+CHCTL 
C E(13)+WFN 

10 —JD 



L»UA* -m OOOOOCH«At« UA 

ISSUE INST (HALT* TESTt TEST CAN) 

STATS 4~7« CPU INST CODE 



CA INVALID 

CA( 29-31 )NQT»0 
OR CA(4-7)N0T*0 



' 10 — * 9§S 
f 0001 

B E+WR 

W+CHCTL 
D D+M 



AB***" 10 ****AH 
ISSUE START 
CA ALL RIGHT 



00 — 
E 0001 
B E+WL 
»B W+CHCTL 
D D+M 



9BC 



issuTfoul 1 on~ EH 

START 



11 mmm 
0001 

B E+WL 
B W+CHCTL 
D D+M 



9BF 



-0T31C 
(OX) 
PROGRAM TRAP 



L"UAt OOOOOOUAt* UA 



RpSPTt CA 



M«M OPt DA 



F»0000 START 10 
F»0100 TEST 10 
F»0010 HALT 10 
FpIOOO TEST CHAN 
FpOOOO PROC WITH IRPT 



^J0«MW 1Q mw^M 

ISSUE FOUL ON 
START 



0937 



S 
C 
I 

N3~ XX 
SET LOG TGR 
IAR TO H 
READ FROM 84 

B4+IA 



**"HMC 



IX - 
E 1001 
A E+R13 

E+CH 
I 



N4— XX — ND 
ISSUE PROC WITH IRPT 
(0—10) TO R3 



XX « 
1110 
E+WL 
WL+MD 

E(23)+LSFN 



0996 



-OK701- 
(10) 
COUNTDOWN 
LOOP 



A3«m# io «mH\)E 
SET TO ADDR LSIB 



•OY420— 
(XX) 
LOG-OUT 



-NCF 



OX --SB 



255449 



9/20/65 



254760 
254770 
255033 
255440 



12/21/64 
. 01/19/65 
02/24/65 
06/10/65 



MACH C2050 
NAME 

MODE MANUAL 

P*N» 5364784 

IBM CORP. SDD 



DATE 10/01/65 
LOG 902 



SHEET 
VERSION 



1 0K700 



START IOt HALT I0» TEST 10 
TEST CHAN* PROC WITH INT 



COUNTDOWN LOOP 

00 0940 

rH E 0001 I 

I I D G-l 
0— *C S03oE 
I I i 
R AQ(B=1)*A I 
R G2/MB3 S3 I 

DECREMENT COUNT 



GK?02»ArF- 
' 00 tOl •lOtll i 
-OT TIME OUT 



3K 7 C2.F.CE- 

(01- 



TIME OUT CK 
OR FROM LOGOUT 



INDETERMINATE 

00 0944 

E 0010 I 
B E+WR 

B W*MMB |*- 

L FN*MD*L5A 
L LS*L+LS 
I 

R Efi(A=l)*E 
R S4 
C3— » j^r — — CC 
I FETCH 7RPT gFR TQ L 
' SET MO«OC000010 




XX 



QK700.JDE- 
(10) 

INSTRUCTION 
INITIATION 



0 
I 
I 

I Jl — 00 —oA 

1 SET COUNT TO 255 



QK703.ACE- 

(103 

INTERRUPT 
HANDLING 



ST 3 

11 — 

0— € 0110 

L WS1H.SA 
L R*LS 
C SO%«iE 



0943 



S2 



R SI 

L2— ** — CB 

SET LSFN AND MO TO 
IRPT BFR ADR 
CA WORD TO VS1 



XX — GD 



L«UA«0«0«OCHA 

R«SPTO«CA 

M*US«CHS«CNT 



04— 

64 TO H 

2ER0ES TO SP REG 



CNT»0 AND WO ST3 
10 — 094? 

E 0010 



B E*WL 
B W*CHCTL 
R S4 

02— *o —a* 

ISSUE TIME OUT 



PROG CK LOAD 64 

11 0947 



0*M 
MB+1 



03— XX 
ZEROS TO M 
INCR MB TO 1 



— QC 



XX - 
E 0010 
B E*WL 
~B W*MMB 



HALT«TEST*TEST CHAN 



0993 | 
I I*' 
A 4*Mt5P i 
A SL4*F I 



00 

E 1110 

L WS«F->LSA 

L LS4L*LS 

j IA-fO/2+A 

C E->S-TV 

r I-TFTCH 

Exc r :ta(3?' 

EXC" IAC! 

I FiT H 



C9Cm 



-QT110- 



-CEE 



(00«01*10«11> 
X-FETCH 



-C ; i 

*'-F.F V >F 



I ! 



i I 



-OK 705— 
(XX) 

LOAD 64 



-GDD 



XX - 

E 0100 
A E*P13 



099A 
I 



i 

i 6 TO P3 



HANDLING 



INTERRUPT 
11 - 



090* 



L+RO 
3+MB 

FNtMD^LSA 
LS*L»R*LS 



L 
L 

I I 
L5 — XX — - E 
LSI* TO L 
LOtUA) TO PO 
R<UA»0«OtDEV END IPPT 

CODE TO LSIB 
SET MB TO 3 



NO 

INTPPT 



00 



*TH 



i 

A t*L!3 



09AG 
I 



XX 



0999 



F*S*4 



! 



A LH.13 
-A F*SR4 
D 3*LB 



0997 



01 — CO 
001 00000 (CHS-PRO'i CHK) TO Ml 



XX 

<3 SHIFT CHA 

T TO RT4 

I INTPPT PATH 

10 — 09AA 



OX 

SHIFT CHA TO 
L3R SET LB TO 3 



1 

-D 3+LB 



OX - 
NO CHA SHIFT 
SET LB TO 3 



-0*7) 
«0X) 
TIME OUT 
CHECK 



259399 
239855 
260526 



03/01/69 
i 0/13/69 

07/6i/70 



254760 
254763 
255443 
259449 
257243 



12/21/64 



O^/io/65 
09/20/65 
09/10/66 



MACH 
NAME 
MOM 

» 



COUP* 



2050FP 

MANUAL 
53647§S 

m 



DATE 
LOG 



C2/01/71 
050 



SHEET 
VERSION 



1 OKTOI 



10 OP COUNTDOWN LOOP AMD 
RESPONSES 



QK70UNJE- 
(OX) NOT INT 
TEST 10 



0910 




SI 8 m M m 



DEV END 



QK701.JFE- 
(XX) 

INTERRUPT 



XX • 
-*E 0000 
E LMBtU 
B U+W 
D 0*LB 
C EU3)**Fto 



09A2 



e;— 



xx 



L3URPT CODE I TO w 

set hvp fn to 
cross 



E 
B 
-B 

B 

0 

c 

R 

E?-~ 



09A3 



?*wr 



XX - 
0001 
LLB*U 
VL*WL 

0*MB 

S4?QE 
W(6?)*AB 

** — EB 



0952 
I 



10 - 
E 0000 
A 0*113 

B R3*U 

B ?*WL VP*WR 
B W*CHCTL 
D 3*LB 
C E+S03 
A3— 10 — AC 
ISSUE IRPT TEST 10 
c cS£T STATS 0-3 



SET STATW TO 
IRPT TEST CODE 
UAL TO M3 RIGHT 
2CR0S TO M3 LEFT 



:t st*ts cki to 




C953 



095 



SET STATS 0-1 TO 
PCI CODE 



PCX AND CH«ENB 

00 — 0950 
E HOC 
D 3*MB 
-C E*S03 



R L(0) 

#X — IC 

SET STATS 0-1 TO 
PCX AMD CH»EWD 



a 
x 

? 

0 
3 



-QK 701— ACE 

(10) 

COUNTDOWN LOOP 



UA . »0 

'•x — 0980 
£ 00!'* 
B lLfe*L 

* b'*E*A'BUHP 



£4— 



xx ««— ED 



UA TO SAP TO 
FETCH BUHP CMT 



UA*0)*1 
€ 001% 

c £uS>*wf* 



H&CH 

X& WM <JfJ 



SET NVR FN 
TO EOR 



STRAIGHT UA FORCED 
»v HSCH Afti!) *56 

subchan orr^ ^ 

XI — 9A$ 
€ 0010 

B *«E*A(BUHPi 

I I 

ADtPESS UCWC^T 



XO 

6 0010 

W*E**(iUMP) 



OOOOOAR 

000010$ 



XX 

tow 



tO *** TO FETCH 
BUHP CtJUNT 



*BA 



XX — ** 
E 0010 
B LL**t 
HI L»u 
B W*MMB 
D HB-I 
L WS?*LSA 
I L*L5 
C EU3}**F* 

£6— XX 



XX — * 09A6 

E 0010 

9 R3+U Hp**V 
HI, ?♦« 



XX 

E r-'GO 
HI w*wm« 



|3W xx — Si,c» 

SflfftCNTtTO L 
0600 1000 TO M? 



6 m*i 

L L*LS 
C (f(|3)#MM 
06— • xk 
mm to M3 

1*0* If TO 2 
SIT Ft* TO 
AMD 

If* TO WS» 



If V 



i 



C9C* 



4*W 

J* ?*w 

I 



-0X704 

(XX) 

TEST PC I 



-€MD 



M «uA*i >C ** 

LOifL OP) AMD 
(OOOOlOOC) TO 
KVR LATCH 
UEC» «• TO 1 
OEC« l B TO 3 



iSA?£8 




m-mm mtwmm mmjffl l 



QK703.EHD- 

(V'X) 

INTERRUPT 

HAtf.'TLP.G 



0001 



C9A9 
I 



PCI F 



I ! 



OX 
01 00 



C9-3 



3L4-* 



L 

SET 



MT) 



TO M 
FfJ TD Of? 



R3+U 
IR W"»£»> A f 2UMPJ 

rS(uam) to SArT 
tor f:>*p ca 

10000000 TO L3 



RlC PCI rLAG 

IX — 0933 

e oioo 

A e*L 

B R3*U 
8 U*W 

3 W*E*MBUMP) 

AQ(R»0)*A 
A* 30 31 
J2— ■ — JB 

R3tUA£> TO SAR 
FOR BMP CA 
10000000 TO L3 



;£rjD 



AND PCI 
11 ~— 



if pr 

I- 



D ll r >u r^'ji^v 
— • ?*w 

3 W*MMB 
I 

L3(10»ciO) OR 
MKCH 5, TG f'l 
DECR MD TC 0 
UECR LB TO 2 



EfJD 1PPT 
10 



D LB«MB~1 



0956 



J3— XX «— JC 

DECR MB TO 0 
DECR LD TO 2 




PCI WPT 

0.1 

i 



0*5S 



3 LLE-HJ MMB4V 

B W+HMB j 
D LB«M3«1 I 
1 t 

L3ao«««o OR 

MUCH S) TO Ml 
DECR MB TO 0 
0£CR LB TO 2 



Gfc 
K 

0 
4 



PJft'.. 



x:; - 

F 1 YO 

: l-iW 
l — ; sl ■ 

C li'MC 
R 

. X* — 

irRCM W61 
L2 (UNIT STATUS) 

TO MO 
SET BYTE STATS 



SO ] 



... v IK - T 



sn? :v*r<-; stats 
uoqo> 



(01 J 

I GAD 04 



-fHE 



g cooo 

D D»T 

€ KtOWISPULL 
I 

• I 

^C,-> 

SEP TO LATCJ* 



M»US«CHS«CNT 

5EQ CTLS RESET ON END TYPE IRPT 

PCI CHS f*J PC 2 TYPE IPPT 

m* IF t» PLUG 



.www os/is/os r$m 1 tsu .r!c i€?ts 7 '^ \ 



—START HALT— 

00 — 0914 
E 0001 
A M+D*BS 
E(23)*CR 



1:3— XX 
M<US?CHStCNT> 
TO SDR PER 
BYTE STATS CUOO) 
SET COW REG TO 01 



09AD 



Jl— XX OA 
M<0»»« 01000000) 
44 TO SAR 
(68 TO SAR) 



09AE 



XX 

on* 

R*M 

WStEKSA 
LSWtS 
Bft(A*l)*B 
S4 S5 



— TEST— 

01 — 
E 0001 
A M*D 

' X ^ ! * C E(23)»CR 



0913 



m — jb 



FETCH STO PROT 
TO R 

R(UStCM5tCNT) 
TO M 



XX — OC 
M(UStCHStCNT) 
TO SDR 

SET COND REG»01 



—INTERRUPT 

( 11 — 0917 

A M*D 
I 0*LB 



N3— XX — NC 
M(UStCHSfCNT) 
TO SDR 



START-TEST-HALT 



XX — 09BJ 
E 0111 
A R*D 
«*> LBfMB-1 
L WStE^LSA 
L LS*R*LS 



sjfymm XX 

R(CA)TO SDR 
FETCH STO PROT 
TO R 

DECR MB TO 2 
DECR LB TO 3 



XX 



09B0 



A R#M 



R S4 
J7<— X* — JG 
R<STO PROT) TO M 



XO — 0986 
1110 J*-— 
R^MtSP 
WStE*LSA 

TA+0/2*A 
E*S47 

X-FETCH ( 
tySk •*w%iH 
EXCPN0IA(30)*A 
EXCPM0(IA<30)#REF)*B 
I FETCH 

RESTORE STG PROTECT 



L 
S 
C 
R 



"QT11 0 JHD 



—INTERRUPT — 



XI 

E 1110 
A E*R*A 



SL1*0 



B LLBKf 
B U*W 
B W^MMB 
D 3*MB 
N8— XX 
56 TO SAR AND 
L3(CHA)T0 M2 



-GT310— - 

(XX) 

STORE PSW 



-NMD 



I MACH C2050 
254760 12/21/64 j NAME 

255449 09/20/65 I MODE MANUAL 

F*N« 5364789 

IBM CORP. SDD 



DATE 
LOG 



10/01/65 
902 



SHEET 
VERSION 



1 OK705 f 



LOAD 64 - CPU MODE 



NO CC*0 
OX 

1 

C NOP 



one 



aU100*NEE— 
(10) 

IPt BUTTON 




XX — 09B2 
E 1100 
A E+R 

E*FP$L4 
E(23)*CR 



,J2>mm* XX *>* II \J1 i 

START FORMING 
CCW2 



XX — 09B3 
0010 
R*D 

F*SR4*F 
E*WR 

W*MMB 
WSULSA 
LSH>LS 
E*S03 

XX 



XX < 
E 0001 
A 0#R 

•§ E*WR 
B WKHCTL 
C 5470* 



09B4 



NO S3 

xo «— 
Ul€ 0010 



0988 



FINISH FORMING 
CCW2 AND STORE 
IN WORD It 
CCW2 m CC AND 
SILI FLAGS ON* 
CNT * 24* 
FETCH UA«CHA 

RESET if 51 T ° L 



xo ~JD 
ZERO Rt 
EMIT START 10 
TO COMMON CHAN* 
SET S7( START )• 



» 1 

R 



C EU3HWPN 



START 10 

E 0000 m 
C E*S03 



098B 



- OX -HEG 
START 10 NOT 
ACCEPTED BY 
CHAN* 



R»CA<0— 0) 
M*MOP(READ) 

DA (ZERO) 
L«UA AND CHA 



S3 
X$ ****0E 
WAIT FOR CHAN 
RESP(S3 TURNED 
ON)* 



I S3 ON 

XI — ■ 
E 1000 
B E*WL 
Lmm B WL*MD 
D 0*L8 



0989 



CC-0 

IX — 
E 0100 
L WSi-tLSA 
LStL^LS 
E*S47 



098E 



CRMD 

MASKED CR ♦ A 
RESET S0~3 



J7— XX 
START 10 BEGUN 

BY CHAN* 
RESET S7(TEST 10) 



S7 . 
X$ ****NE 



TEST 10 

XO 098A 
E 0100 
A E*R 
—A 5L4*F 
D MGT1*ADDER 
D 3*MB 
I 



XX 

SET R3 TO 
(10010000) 



XX — 09B5 
E 0011 
A M*L 

E*WL E*WR 
B W^MMB 
D LB+1 
R 52 
NT* - "* 4X ••*N6 

SET M3 TO 
(00110011) 



NO CC»! 

ox — 

E 0100 
L WS1K.SA 
L3*LKS 
C E*S03 



098D 



LS— XX ~LH 
CHAN END STATUS 
NOT RCVD 



XX — 09B8 
E 0100 

B E*WR 
W*CHCTL 



L9~ XO — I 
EMIT TEST 10 TO 
COMMON CHAN 



cot 

E 
A 



IX 
0001 
R+€*R 



098F 



LL8HJ MMB*V 

b ?*wl ymm 

D HOT 1 LADDER 
D 0<*M8 

as~ XX 
CHAN END STATUS 
RCVD* 

TEST ALL BITS 
EXCEPT WLR AND 
PCI FOR ZERO* 
SET R3 TO 
U001001D* 



•QK801 
(XX) 
IPt STATUS 
ANALYSIS 



0 

K 

# 
0 

-0 



254740 
25476S 
255440 
255449 



IMACH C2050 
NAME 

MODE MANUAL 

P.N* 5364790 

IBM CORP* SDD 



DATE 10/01/65 
LOG 902 

1PL 



SHEET 
VERSION 



% QK800 



XX 
&IO0 

A €♦* 

B R3*U «KB*V 
L MMJM 



0906 



3KX 



P3U0O1OOU>AND 
JttfUSlM *VR UTCH 

0000 looo to m 

fefOttCMUOtOOMAt 
OJTO t FROM WS1 



^ IX — 099? 
A L*H 

~B R3*U MMB*V 
1 UL*WL ?*WR 
0 3*OT 

R W»0 i 



R3R< 1000) AND 
MOR(U#S.R) TO 
HVR l»TH 
LCUAtOfOCMAtO) 
TO M 



CHS NOT XXOOOOOO 
OX — 09 




C NOP 
UtJ 




ys NOTOXXOXX0O 



XX 

ZEROS TO SAR 
UO(UA)TO M3 



ys not xxxxixxx 




XX ~ 

H*0*BS 
0*LBtMB 



09B7 



I 

MtOtOfOCHAtUA) 
TO SDR BYTE 
STATS<0011) 
(STO CHAtUA IN 
LOC 2t3> 



-GU1C 



lo!d PSW 
FROM ZERO 



! 254760 
1 255449 



J 2/21/64 | 
9/20/63 



MACH C2050 
NAME 

MODE MANUAL 

P.N. 3364791 

IBM CORP. SOD 



DATE 
LOG 



10/01/65 
902 



SHEET 
VERSION 



i QK801 



IPL STATUS ANALYSIS 



